BOOT PROM 
LISTINGS 

THE CORVUS CONCEPT 


* ** CORVUS SYSTEMS 


BOOT PROM 
LISTINGS 

THE CORVUS CONCEPT 


PART NO.: 7100-03294 
DOCUMENT NO.: CCC/30-00/1.1 
RELEASE DATE: February, 1983 


CORVUS CONCEPT™ is a trademark of Corvus Systems, Inc. 




ile; CC.PRQM.TEXT 


Page 


l» 

1 * 

3« 

4» 

5* 

7* 

I* 

»» 

10 * 

ll» 

12 « 

13* 

14 * 

15 * 

14* 

17* 

18* 

1 ?* 

20 * 

21 * 

12 * 

23* 

24* 

25* 

24* 

27* 

28* 

29* 

30* 

31* 

32* 

33* 

34* 

25 * 

34* 

37* 

38* 

39* 

40* 

41* 

43* 

43* 

44* 

45* 

44* 


CC.PROM.TEIT — 

CC.FROH - Cotftts CONCEPT Voikstation FROM 

Copftight 1912 Coifos Systeas, Uc 
San Jose, Caiiioinia 


Al I Rights Reserved 


fl.l 

0.2 
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05-27-82 LEF 
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04-29-82 LEF 
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Original prograa 

Add keyboard driver (kbl 

Add display driver <>b) 

Add 6" Corvus tloppy disk driver ikb> 
Add 8” Corvus iioppy disk boot 
Finds (list local disk lor booting 
ONNINET disk driver aodif icat tons 
Add NACSBUG interlace 
Add 5" floppy driver 
Add S' floppy boot 
Finds first floppy disk for booting 
Local disk driver lodi iicai ions 
OHNINET disk driver aodt f icat ions 
Add tine out to OHNINET short cowaands 
Hodit'ied HacsBug interface 
Modified Apple 5“ iioppy driver 
Swap BACKSPACE and \ keys 
Modified display driver 
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48* 


include 

■CC PHOH.EQ' 

,PROH equates 


49* 

, 





50* 

, File. 

CC.PROH 

EQ.TEXT 



51* 

52* 

, Date. 

28-Oct- 

82 


dC OOCSOO 

53* 

54* 

PROH?ef s 

equ 

0 

.Current FROM version number 


55* 

,ROM»ers 

equ 

15 

.Teaporaty PROK version nuabet ■“?% 

u 0 0 G 0 3 C 6 

5o* 

PROMlevi 

equ 

6 

.Current PRuK level nuaber 

aCOQCOQO 

58* 

RAhb^se 

equ 

$00000 

.Ease address oi low KAN 

0 0 G 0 1 C 3 u 

59* 

RAKien 

equ 

$1000 

.Length oi low RAH i4k bytes» 

d00C03OG 

60* 

RArtkbbul 

equ ‘ 

RAKfaasef$330 

.Start of keyboard buffer 

G 00 DC 1 uu 

4i* 

RAMkblen 

equ 

$100 

.Length of keyboard buffer 

SDOGO^CO 

62* 

RAKaibag equ 

RAKbaset$400 

.Start of HACSBUG RAN 

0 0 0 0 0 ? C u 

6 3* 

RAHwksta 

equ 

RAKbase4$700 

.Start of workstation RAH 

GO GO 1 030 

64* 

RAHend 

equ 

RAKbasei-RAKLen 

.End address ♦ i of low RAH 


45* 




. 

3 0 u 1 w 0 u 0 

60 * 

ROKbase 

equ 

$ 1 0000 

.Base address of workstation PRQH 

OOOCIOGG 

67* 

ROMien 

equ 

$2000 

.Length of workstation FROM 

0 0 0 'i k, C D 0 

o 8 » 

69* 

70* 

ROMend 

equ 

ROfibasetROMlen 

.End address ^ 1 of workstation FROM 

300G05GC 

KXebase 

equ 

$20000 

.Ease address of HACSBUG Hi present) 

00002033 

71* 

nXBIen 

equ 

$ 2000 

.Length of HACSBUG 

OGO 2ZC0C 

72* 

HXSend 

equ 

MXBbasetMXBien 

.End address f 1 of HACSBUG 

OOO 2 OGO 1 

73* 

KZBinit 

equ 

HXBbasef4 

.Address of MacsBug init vector 

00020008 

74* 

75* 

76* 

HXBentry equ 

HXEbasefS 

.Address of KacsEog entry vector 

00030000 

IGPbase 

equ 

$30000 

.Ease address ot I/O page 

O003CF00 

77* 

VIAbase 

equ 

lOPbase^$0F00 

.Base address of VIA registers 

00080300 

79* 

DSPbase 

equ 

$80000 

.Base address of display buffet 

GOOOEOOO 

80* 

DSPlen 

equ 

$OEOOO 

.Length of display buffer 

0008E000 

61* 

DSPend 

equ 

DSPbaset DSPl en 

.End address *■ 1 of display buffer 


82* 




, 

3006E0Q0 

83* 

USRbase 

equ 

DaPend 

.Base address or user RAH 


64* 






85* 






86 * 

, Cocvus 

CONCEPT Workstation i 

nterrupt vector definition 


87* 





00000084 

88 * 

iVI»Il 

equ 

$64 

.level i interrupt vector fSLOTS) 

Q0000048 

89* 

IVI»12 

equ 

$68 

.level 2 intertapt vector (BCD 

0000006C 

90* 

IVU13 

equ 

$ 6 C 

.level 3 interrupt vector (QKNINET) 

00000073 

91* 

IVl»I4 

equ 

$70 

.level 4 interrupt vector (DCO) 

0GC0O07<« 

92* 

iVIfIS 

equ 

$74 

.level 5 interrupt vector (TIKER) 

30000078 

93* 

IVifi 6 

equ 

$78 

.level 6 interrupt vector (XYDB) 

0000007C 

94* 

IVUI7 

equ 

$7C 

.level 7 interrupt vector 


95* 






0 5 
0.5 
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971 

98* 

99* 

100* 

, Cotvas 

CONCEPT Votkslation static RAN address definition 

Q0000700 

CPbtsiot 

egu 

RAMwkstatSOOO 

,(700-700) 

boot slot noBber 

00000701 

101* 

102* 

CPbiicvt 

eqii 

RAKMkstaeSOOi 

.(701-701) 

,(702-705) 

boot server nuBoer 

00000706 

103* 

CFossiot 

equ 

RAHwksta^SOOe 

,(706-706) 

OS voiuBe slot nuBbet 

00000707 

104* 

CPossrtt 

eqa 

RAHwksta^i007 

,(707-707) 

OS voiuBe server nuBbet 

00000708 

105* 

CPosdtf 

iqo 

RAHwksta^lOOB 

,(708-708) 

OS voiuBe dtrve nuBber 

00000709 

106* 

107* 

CPosbIk 

equ 

RAMwkstan009 

,(709-708) 

.(70C-70C) 

OS voiuBe block nuabet 

00000700 

108* 

CPtptnbr 

equ 

RAHwkstai$O0D 

i(70D-70D) 

OMNINET transporter noaber 

0000070E 

109* 

CPdiskRC 

equ 

RAHwkstat»0CE 

.(70E-70E) 

disk conuollei return code 

ooooo7or 

no* 

111* 

112* 

CPo&niRC 

equ 

RAHwkstat$Q0r 

,(70F-70n 

,(710-713) 

OKNINET return code 

00000710 

113* 

CPbikio 

equ 

RAHwkstafi014 

,(7i4-717) 

boot disk bik t/o subt pointer 

00000718 

114* 

115* 

116* 

117* 

CPdskio 

equ 

RAKwkstafiOlS 

,(71B-71B) 

boot disk i/o subr pointer 

000007ZC 

CFuseiiD 

equ 

RAHwkstat$020 

,(720-721) 

,(722-725) 

user ID 

00000726 

118* 

119* 

120* 

CPosernB 

equ 

RAHwkstat$026 

,(726-72n 

user naae dO bytes; 

00000730 

CFf inlv 

equ 

RAKwkstat$030 

,(730-733) 

floppy interleave table pointer 

00000730 

121* 

CPidvsi 

equ 

RAnwksUt$034 

,(734-735) 

floppy device site (blocks) 

00000736 

122* 

CPlbps 

equ 

RAHwkstae$036 

,(736-737) 

floppy bytes pet sector 

00000731 

123* 

CPfspt 

equ 

RAKv)ksU^$038 

,(738-738) 

floppy sectors per track 

00000739 

124* 

CFftps 

equ 

RAHwksta«6039 

,(739-739) 

floppy tracks per side 

0000073A 

125* 

CPfspd 

equ 

RAHwkstaf$03A 

i(73A-73A) 

floppy sides pet disk 

0000073B 

126* 

CFfoist 

equ 

RAHwkstaf$03B 

,.738-738) 

floppy first track offset 

0000073C 

127* 

128* 

CPitYp 

equ 

RAHwkstaf$03C 

,(73C-73C) 

tloppy type 

00000740 

129* 

CFwndrcd 

equ 

RAHwksta4$040 

,(740-763) 

systea window record (3t bytes) 

00000764 

130* 

CPscnofs 

equ 

RAMwkstat$064 

,(764-765) 

bytes per display scan line 

00000766 

131* 

132* 

CPdspflg 

equ 

RAMwksta4$066 

, (766-766) 

display flags 

00800771 

133* 

CPslitTP 

equ 

RAHMksU«i071 

,(771-771) 

slot device type lor siot 1 

00000772 

134* 

CPsUtYp 

equ 

RAHwksta4$072 

,(772-772) 

slot device type foi slot 2 

G0000773 

135* 

CFsI3tfp 

equ 

RAHwkstaf4073 

,(773-773) 

slot device type tor siot 3 

00000774 

136* 

CFsHtyp 

equ 

RAMwkstaf$074 

.(774-774) 

siot device type tor slot 4 

00000773 

137* 

138* 

CFslOtyp 

equ 

RAHwkslat$075 

,(775-775) 

slot device type foi siot ;■ 

00000880 

139* 

CPOBACaB 

equ 

RANwkstat$180 

,(88D-68F) 

statu RAH for OMMINET 

00000900 

140* 

CFsilras 

equ 

RAHwkstafiZOO 

,(900-9FF) 

static RAH tot slot 1 device 

OOOOOAOO 

141* 

CPsllriB 

equ 

RAHwkstae$300 

,(A0fl-AFF) 

static RAK iot slot 2 device 

OOOOOBOO 

142* 

CPslStaB 

equ 

RAHwkstat$400 

i(BOO-BFF) 

static RAH for slot 3 device 

OOOODCOO 

143* 

144* 

CFsi4ian 

equ 

RAHwkstat$S00 

,(C00-CFF) 

static RAH tor slot 4 device 
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Fdge 4 


30000DGG 

146* 

CPiobuf 

equ 

RAHwkstav$600 

OQOOOFCG 

147* 

CPstack 

equ 

RAMwkstaf$800 

OOOOOFGO 

148* 

CPeiicrt 

equ 

RAHwkstaa$800 

C G G G 0 F u 1 

149* 

CPsysst 

equ 

RAHwksta^ceOl 

COOGOFf C 

150* 

CPistack 

equ 

RAMwkstat$8FC 


151* 




OGOaSFDG 

152* 

CPonnibf 

equ 

OSFend-$30 


153* 





154* 





155* 





156* 

, Corvus 

CONCEPT Workstation 


157* 




GG01CG04 

158* 

CFsysrst 

equ 

ROMbaset$004 

OOOiOGOB 

159* 

CPuniqid equ 

ROHbasea$008 

GCOIGGGC 

160* 

CFronvrs 

equ 

ROHbaset$00C 

G G C 1 0 G G D 

161* 

CPronlvl 

equ 

ROMbasea$00D 

GGG'.GOOE 

162* 

CPcksun 

equ 

ROMbasetCOOE 


163* 




30C10C1G 

164* 

CPoboot ] 

equ 

ROMbasetSOlO 

GGClOOtZ 

165* 

CPoboot 

equ 

ROMbaser$012 

C G G i 0 G 1 6 

166* 

CFobikio 

equ 

ROMbasef$016 

OOCIOGIA 

*67* 

CPodskto 

equ 

ROMbasevtOlA 


166* 




G0010G23 

169* 

CFlboot] 

equ 

ROMbaset$020 

8C010G22 ' 

170* 

CPIboot 

equ 

R0Mbaset$022 

0OG1OG26 

171* 

(IPlblkto 

equ 

ROMbiSeatOZo 

0GO1C02A 

172* 

CPldskio 

equ 

RCMbasef$02A 


173* 




OGOiOCSO 

174* 

CPfboot ] 

equ 

ROMbaset$030 

0G010OS2 

175* 

CPfboot 

equ 

ROHbaset$032 

CO G1 003 6 

176* 

CPfblkiO 

equ 

ROMbasef$036 

G 00 i GO 3 A 

177* 

CPfsctio 

equ 

ROMbasea$03A 

C00ICC3E 

176* 

CPfinit 

equ 

ROHbasef$03E 

00010042 

179* 

CPablkio 

equ 

ROHbaset$042 

C0G10C4k 

130* 

CPasctio 

equ 

ROMbaset$046 

0301G04A 

181* 

CPainit 

equ 

ROMoase>$04A 


182* 




00010050 

183* 

CPkbinit 

equ 

ROKbaset$050 

00010054 

184* 

CPkbgetc 

equ 

RCMbaset$054 


185* 




G0G10060 

186* 

CPdsini t 

equ 

ROHbaset$060 

00010064 

167* 

CFdsputc equ 

RONbasea»064 

0001G068 

168* 

CPdsputs 

equ 

ROHbasea$068 

Q0010C6C 

189* 

CPdscvuc 

equ 

ROMbaset$06C 


190 ' 


,(DOO-EFF) i/0 batiet (S12 bytes) 
(FOO-FFf) initial systen stack 
(F30-F00) eiteinai CRT flag 
(FOl-FOi) systen initiaiitation status 
(FFC'FFC) initial systei stack pointer 

OMHINET drirer bofiei (48 bytes) 

(OMNINET can't access below $80300 


! address vector definitions 

(10004) systen restart pointer 
(10008) unique workstation 10 
UOQOC) FROM version nunber 
(iOOOD) FROM level nunber 
(lOOOE) PROM checksun 

UOOlO) junp to OMNINET disk boot subr 
(10012) OMNINET disk boot subr pointer 
(lOvU) OMNINET disk bik i/o subr pointer 
(10018) OMNINET disk i/o subr pointer 

(10020) junp to local disk boot subr 
(10C22) local disk boot subr pointer 
(10026) local disk bik i/o subr pointer 
(1002A) local disk i/o subr pointer 

(10030) jump to floppy disk boot snbr 
(10032) floppy boot subr pointer 
(10036) Corvus floppy bik i/o subr pointer 
(1003A) Corvus floppy sector i/o subr pointer 
(1003E) Corvus floppy initiaiitation 
(10042) Apple floppy bik i/o subr pointer 
(10046) Apple floppy sector i/o snbr pointer 
(1004A) Apple floppy initiaiitation 

(lOOSO) initialiie (reset) keyboard driver 
(10054) get a keyboard character 

(10060) inrtialite display dcivei 
(10064) display a character 
(10068) display a string 
(1006C) convert character to upper case 



file; CC PR0H.7EXT 


Fife 5 


00010070 

192* 

CPivecl 

eqa 

ROMbasei$070 

,(10070) level i inteiiupt 

vector (SLOTS) 

00010074 

193* 

CPi»ec2 

equ 

HOMbasef$074 

,(10074) level 2 interrupt 

vector vuCli 

00010078 

194* 

CPi»ec3 

equ 

ROKbase>$078 

,(10078) level 3 interrupt 

vector tOMKIivE 

0001007C 

195* 

CPi»ec4 

equ 

ROHbase*$07C 

,(10070 level 4 interrupt 

vector (DCfl) 

coQiooao 

196* 

CFi»ec5 

eqo 

ROHbase^SOSO 

,(10080) level 5 interrupt 

vector (TIMER) 

00010084 

197* 

CPivec6 

equ 

ROMbase^$084 

,(10084) level 6 interrupt 

vectot t KYOB) 

00010088 

198* 

CPivec7 

equ 

ROMbise^$08B 

,(i008B) level 7 interrupi 

vector 


199* 







200* 







201* 

, Cotvus COKCEFT Voikstition 

1(C paqe del iiutions 



202* 

, 





00030F61 

203* 

iObootsw equ 

VIAbase^ldl 

,(30F6l) boot selection switches 

00030r7i 

204* 

lObeeplq eqa 

VIAbasei$71 

i(30F7l) beep itequencf 



205* 







208* 

; 






207* 

, Slot 

device 

trpes (set in 

CFsiltifp. CPsldtyp) 



208* 

, 





00000000 

209* 

DTndev 

equ 

0 

,no device 


00000001 

210* 

DTlocI 

equ 

i 

, local disk 


00000002 

211* 

DToini 

equ 

2 

,OKK'lKET disk 


00OOG003 

212* 

DTc8 

equ 

3 

,Corvos 6' floppy disk 


00000004 

213* 

DTcS 

eqo 

H 

,Cocvus 5“ floppy disk 


ooooooos 

214* 

DT*5 

equ 

5 

, Apple 5” floppy disk 



21 5* 







2ii* 

, 






217* 

, KiscelUneoos equates 




218* 

; 





OOOOOGQO 

219* 

Off 

equ 

0 

, 


00000001 

220* 

on 

equ 

i 

, 



221* 






00004EF7 

222* 

jump to 

equ 

84EF9 

,"jap‘' op code 



223* 




, 


00000032 

224* 

DskRead 

equ 

$32 

,disk read conmand 


00000033 

225* 

DskViit 

equ 

$33 

,disk write comaand 



226* 
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228* , 

229* , Coifus CONCEPT Vorkstition FROM address vectors 
230* , 


3G03 


231* 

org 

ROMbase 

OOOG 

0G008000 

232* 

data . i 

0 

GG04 

308130B4f 

233* 

data. 1 

setup 

0008 

FFFFFFF? 

234* 

data . 1 

iFFFFFFFF 

OOuC 

30 

• 235* 

data.b 

PRCMvers 

GOOD 

08 

236* 

data b 

PROMlevl 

v00£ 

FFFF 

237* 

data.w 

$FFFF 



238* 



8013 

4EF9 

239* 

data w 

jump to 

0Gi2 

C00103FC» 

240* 

data! 

SBomni 

30U 

GCOllioOt 

241* 

data I 

OOblklO 

OOiA 

003lll9Cf 

242* 

data.l 

ODdsklO 

OOiE 

OGOO 

243* 

data w 

0 



244* 



80 20 

4EF9 

245* 

data w 

jump to 

0022 

C001043S> 

248* 

data.l 

SBlocal 

0028 

OOOlOFSCf 

247* 

data.l 

LDblklO 

002A 

8031l038t 

248* 

data.l 

LDdsUO 

382E 

0080 

249* 

data .w 

0 



250* 



8030 

4EF9 

251* 

data.w 

jumpto 

0032 

GQ0lD4t4> 

252* 

data . 1 

SBflpy 

0038 

G001I44Ct 

253* 

data.l 

FDblklO 

003A 

00011484^ 

254* 

data.l 

FDseciO 

C03E 

GOOlHCAf 

255* 

data . 1 

FDinit 

8042 

80011638« 

256* 

data 1 

AOblkiO 

0048 

G(i01ie7Et 

257* 

data . 1 

ADseclO 

034A 

00011AF4t 

238* 

data.l 

AOinit 

004E 

OGOO 

259* 

data.w 

0 



268* 



0030 

00010722+ 

26i» 

data . 1 

KBinit 

0034 

G00107C0* 

262* 

data.l 

KBgetch 

0038 

OOOOCGO-3 

263* 

data . 1 

0 

003C 

00000008 

264* 

data.l 

0 



265* 




(10003) initial stack pointer 
(10003) start of PROM code 
(10008) unique workstation ID 
(13000 PROM version nusber 
(lOOOO) PROM level number 
(iOOOE) PROM checksum 

(lOOlO) jump to OMNINET disk boot subr 
(10012) QNNINCT disk boot subr pointer 
(lOOld) OKNIKET disk blk i/o subr pointer 
(lOOU) OMNINET disk i/o subr pointer 


(1G020) jump to local disk boot subr 
(10022) local disk boot subr pointer 
(10028) local disk blk i/o subr pointer 
(1002A) local disk i/o subr pointer 

( 10030) jump to flopps' disk boot subr 
(10032) floppy boot subr pointer 
(10038) Corvus floppy blk i/o subr pointer 
(1003A) Corvus floppy sector i/o subr pointer 
(1003E) Corvus floppy ini tialisation 
(10042) Apple floppy blk i/o subr pointer 
(10048) Apple floppy sector i/o subr pointer 
(1004A) Apple floppy initialisation 

(lOOSO) initialise (reset) keyboard driver 
(100S4) get a keyboard character 
(10038) 

(lOOSC) 



0080 

oooionEf 

287* 

d«ti. 

DSinit 

,(10080) 

lAitialite dispU] 

1 driver 


8084 

OOOlOfDSt 

288* 

dati. 

DSputch 

,(10084) 

display 

a character 


0088 

000109C84 

280* 

d«ta. 

Caputst 

,(10088) 

display 

a stnr .9 



008C 

000109B44 

270* 

dit4. 

OScf tac 

,<10080 

convert 

character 

to upper case 



271* 








0070 

000108304 

272* 

d4t4. 

INTflat 

.(10070) 

level 1 

interrupt 

vector 

(SLOTS) 

0074 

OG01081E4 

273* 

dAta. 

INTdcl 

,(10074) 

level 2 

interrupt 

vector 

(DO: 

0078 

000108184 

274* 

data. 

INToMi 

.(10078) 

level 3 

interrupt 

vector 

(OMNINET 

007C 

000108044 

275* 

data. 

IKTdcO 

,(10070 

level 4 

interrupt 

vector 

(DCO) 

0080 

00010SFA4 

278* 

data. 

IKTtiai 

.(10080) 

level 5 

Intel rupt 

vector 

(TIKER) 

0084 

00010SE84 

277* 

data. 

IMTkfbd 

,(10084) 

level 8 

interrupt 

vector 

(KYOE) 

0088 

00010SE84 

278* 

data. 

llfritl7 

,(10088) 

level 7 

interrupt 

vector 


008C 

00000000 

279* 

data. 

0 

,(10080 






Z80« 
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289* 

, 








290* 

, Initialiie Cotvus CONCEPT hardware 





291* 

, 








292* 

;■ ' 

630F71 

- T2C1 






293* 


S30F75 

- shift register 





294* 

, 

$3 OF 7 7 

- aoi control 

register 





295* 

, 

G30F81 

- CRTC pointer 






296* 

; 

G30F83 

- CRTC data 






297* 

, 








298* 


Note that lower hftes 

are odd! : ! ! 





299* 

, 




30E4 

46FC 

2 79 0 


300* 

Setap 

tove.w 

•$2700, sr 

, set* priority to 7, nBi interrupt only 

00B8 

2E7C 

00 09 

OFFC 

301* 


loee . I 

»CPistack,a7 

,set systeB stack pointer 





302* 

, 








303* 

< deUf 

for possible Apple floppy reset *kb 8/23/82* 1 





304* 

, 




OOEE 

303C 

FFFF 


305* 


MOVE.W 

ISFFFF, DO 

,Hust wait at least 1 second 

30C2 

51CS 

FFFE 


306* 

Setopl 

DBRA 

DO, Setupl 

,* 

30Ci 

51C8 

FFFE 


307* 

Setup2 

C8RA 

DO, Setup2 

,* 

80CA 

51C8 

FFFE 


308* 

Setap3 

DBRA 

DO, Setnp3 

; * 





309* 





OOCE 

2C7C 

0003 

QFQO 

310* 


Aove . 1 

•VlAbase,a6 

,get pointer to VIA I/O locations 

OOD4 

4278 

OFOO 


311* 


cl r w 

CPeitcrt.w 

, reset systeB flags (CPeitcrt, CFsysst) 

00D8 

1D7C 

0017 

0907 

3i2* 


•ove.b 

i$17,$07(a6) 

;kybd control, 600 baud, 8 bit word 

30CE 

1D7C 

CGOB 

OOOS 

313* 


BOfe.b 

t$0B,$0S(a6) 

,kybd coBBand, no parity, no interrupts 

30E4 

1D7C 

00 3E 

0027 

314* 


BOfe.b 

t$3E,S27(a6) 

,dcoa0 control, 9600 band, 7 bit word 

GOEA 

ID7C 

OOAB 

0Q2S 

315* 


•oee . b 

f$AB,$2S(a6) 

idcoBO coBBand 

OOFG 

1D7C 

003H 

0047 

3U* 


Bo«e .b 

t$3£,$47(a61 

;dcoBl control. 9600 baud, 7 bit word 

GQF8 

1D7C 

COAE 

0043 

317* 


■oee . b 

l$AB,$4S(a6) 

,dcoBl coBBand 

OOFC 

1D7C 

GOOD 

007F 

318* 


■OTe b 

•$00,$7F(a6) 

;V1A port A 

3102 

1D7C 

3000 

0061 

319* 


•ore.b 

t$0C,$6i(a6) 

,VIA port B 

0108 

lD7t: 

0080 

0067 

320* 


BOfe.b 

t$8G,$67(a6) 

,VIA data direction A 

310E 

1D7C 

0037 

0063 

321* 


BOfe.b 

I$37,$63(a6) 

;ViA data direction B 

0114 

1D7C 

0010 

0077 

322* 


BOfe.b 

I$10,$77(a6> 

,iree run shift register, counter 

GllA 

1D7C 

OOOF 

0075 

323* 


BOfe.b 

l$0F,$75(a6) 

,syaBetruai wafe shape 

0120 

1D7C 

OQAO 

0071 

324* 


BOfe.b 

•$A0,$71(a6) 

.fairly low initial frequency 

0128 

4A2E 

OOCl 


325* 


tst.b 

$Cl(a6) 

.turn off possible OHNINET interrupt 

012A 

102E 

000 1 


326* 


BOfe.b 

$0Ka6),d0 

.clear keyboard data buffet 

012E 

102E 

002 1 


327* 


BOfe.b 

$21(a6) ,d0 

, cleat dcoBO data buffer 

0132 

102E 

004 1 


328* 


BOfe.b 

$41(a61,d0 

;clear dcoal data buffer 


329 * 
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331* , 

332* i Check Corvos CONCEPT hardware (test 1) 
333* ; 

334* , Vetfiy ports Making no data accesses 

335* , 


0134 

0C2E 

003E 

0027 

334* 

cmp i . b 

M3E,127(a4) 

dcomO control 

013C 

4438 



337* 

bne.s 

CHerr 


013E 

0C2E 

OOAB 

0025 

338* 

CBpi .b 

t$AB.$25(a4) 

dcomO command 

0144 

4430 



337* 

bne.s 

CKerr 


0144 

0C2E 

003E 

0047 

340* 

CMpi .b 

l$3E,147(a4) 

dcoml control 

014C 

4428 



341* 

bne.s 

CHert 


014E 

0C2E 

OOAB 

0045 

342* 

cMpi .b 

l»AB,HS(a4) 

dcoml command 

0154 

4420 



343* 

bne.s 

CHert 


0154 

0C2E 

0017 

0007 

344* 

cipi b 

I$17,107(a4) 

kybd control 

DISC 

4418 



345* 

bne.s 

CHert 


OISE 

0C2E 

OOOB 

0005 

344* 

cap i . b 

t$OB,105(a4) 

kybd command 

0144 

4410 



347* 

bne.s 

CHert 


0144 

0C2E 

0080 

0047 

348* 

cmp i . b 

I$80,647(a4} 

VIA o'ata direction A 

014C 

4408 



347* 

bne.s 

CHerr 


014E 

0C2E 

0037 

0065 

350* 

cmpi b 

I$37,$45(a4) 

VIA data direction B 

0174 

4712 



351* 

beq.s 

CHend 






352* ^ 




0174 

303C 

FFFE 


353* CHert 

mote .w 

MFFFE.dO 

short delay betote error tone 

0174 

51C8 

FFFE 


354* CKerrl 

dbra 

dO/CHerrl 

* 

017E 

08F8 

OOOO 

OFOl 

355* 

bset 

IO,CPsysst .w 

set test 1 failed flag 

0184 

4100 

0410 


354* 

bsi 

Flash 

* 





357* 




0188 

303C 

FFFE 


358* CHend 

moTe.w 

IlFFFE.dO 

short delay before clearing screen 

018C 

51C8 

FFFE 


357* CKendl 

dbra 

d0,CHendl 

i 

0170 

207C 

0008 

0000 

340* 

more. I 

IDSPbase.aO 

get pointer to start of display screen 

0174 

227C 

0008 

EOOO 

341* 

moTe. 1 

IDSPend.al 

get pointer to end of display screen 

01 7C 

4100 

03F0 


342* 

bsr 

Zero Ram 

clear display screen 

QIAO 

1D7C 

OOFF 

0075 

343* 

lofe .b 

l$FF,$75(a4) 

, turn off initiai tone 





344* 








345* , 








344* i RosTstl -- Check Coitus CONCEPT PROM (test 2/ 





347* , 




01 A4 

207C 

0001 

OOGE 

348* RoTstl 

mote. 1 

iCPcksum.aO 

get pointer to start of FROM 

OlAC 

227C 

0001 

2000 

347* 

moTe. 1 

tROMend.al 

get pointer to end of PROM 

01B2 

4100 

0320 


370* 

bsr 

RomTst 

check PROM 

01B4 

470A 



371* 

beq.s 

RamTstl 

FROM ok, go on 

01B8 

08F8 

8001 

OFOl 

372* 

bset 

•l.CPsysst.w 

set test 2 failed flag 

OIBE 

4100 

03D4 


373* 

bsr 

Flash 

« 


374 * 
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374 « , 

377* , RaaTstl - Check Coitus CONCEPT static RAH (test 3) 
378» , 


01C2 

2C7C 

oooc 

0700 

379* RaaTstl 

aote. 1 

IRAMwksta.aO 

,get pointei to stait of RAH 

0iC8 

uoc 

831C 


380* 

bsi 

ValkBii 

,is RAH talid* 

OICC 

660C 



381* 

hnc. s 

RTleii 

,no, lepoit eiioi 

DICE 

UK 

0000 

QFOO 

382* 

aott . 1 

OCPsUck.al 

,get pointei to end of RAH 





383* 



, (leate looa foi stack) 

(llD4 

61C0 

0 342 


384* 

bsi 

Hatch 

,ia RAH taiid* 

Gi08 

670A 



385* 

beq. 5 

RaaTst2 

,fes. go on 





388* 




OiCA 

08F8 

0002 

OFOl 

387* RTleii 

bset 

*2,CPsfsst.w 

,set test 3 failed flag 

OlEO 

UOO 

03B4 


388* 

bsi 

Flash 

■t 


387* 

390* , 

391* , RaaTst2 - Check Coitus CONCEPT dfiuaie RAH (test 4) 
392* , 


01E4 

2Q7C 

COOS 

EOQG 

393* 

RaaTstl 

aote. 1 

OUSRbase.aO 

,get pointei to stall of RAH 

OlEA 

8100 

02 FA 


394* 


bsi 

ValkBit 

,is RAH taiid? 

81 E£ 

860A 



393* 


bnc. s 

RT2eti 

,no, lepoit eiioi 

OlFO 

8100 

0372 


398* 


bst 

RaaSise 

,get dfnaaic RAH site (al = RAH site) 

01F4 

8100 

0322 


397* 


bsc 

Ha I eh 

,is RAH talid! 

01F8 

673A 



398* 


beg.s 

HeaTest 

ifes, go on 





399* 




, 

OiFA 

08F8 

0003 

OFOl 

400* 

RT2eir 

bset 

83<CPs|sst .w 

,set test 4 failed flag 

0280 

8100 

0394 


401* 


bsi 

Flash 

,* 


402* 

403* . 

404* , MeaTest -- Check Coitus CONCEPT dynaatc RAH (test 5) 
40S* , 


0204 

8100 

G33E 

408* 

HeaTest bsi 

IneTest 

itest usei dynaaic RAH 

0206 

870A 


407* 

begs 

NeaCli 

;no eiioi, deal aeaoiy 

C20A 

08 F8 

0004 OFOl 

406* 

bset 

84.CPsfsst.« 

iset test S failed flag 

0210 

8100 

0384 

409* 

bst 

Flash 

,* 


410 * 
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412* 

, 








413* 

; KemClt -- Cleat »eioty 






414* 

, 




OZH 

207C 

0000 

0400 

415* 

MeaClc 

•Qve. 1 

IRAHaibug.aO 

,get pointer to start oi RAH 

OZU 

227C 

0000 

OEFE 

416* 


■ofe . 1 

•CPstack-2,al 

,get pointer to end of RAH 





417* 




, Ueate rooa for stack) 

0220 

6100 

036C 


418* 


bst 

ZeioRaa 

;teio RAH 





419* 





0224 

207C 

0001 

0000 

420* 


move, i 

tDSPbase^aO 

,get pointer to start of RAK 

022A 

6100 

0338 


421* 


bst 

RaaSite 

,get dynaaic RAM site (ai = RAM site) 

022E 

6100 

03SE 


422* 


bst 

ZeioRaa 

,teto RAM 





423* 









424* 

; 








425* 

i SetHB 

- Set 

HACSBUC RAH 






426* 

; 




0232 

41F7 

0002 

0004 

427* 

SetHB 

lea 

KZBinit.L.aO 

,is debug PROM present? 0 

0230 

43F9 

0002 

OOOC 

428* 


lea 

HZBbasettC.L, 

il ,* Init vector should = base v 1C C 

023E 

B3D0 



429* 


capa . 1 

(aO),al 

,* 0 

0240 

6602 



430* 


bne .5 

SetIntV 

,no, go on 

0242 

4E70 



431* 


isi 

(aOi 

iinitiiliie HACSBUC 





432* 









433* 

i 








434* 

, SetIntV — Set up inteitupt 

vectors 





435* 

, 




0244 

207C 

0001 

0070 

436* 

SetIntV aoTe.l 

ICPiTecl.aO 

,get pointer to interrupt vector tabie 

02411 

227C 

0000 

0064 

437* 


aove. I 

llVliU.al 

,get pointer to interrupt vectors 

02S0 

7006 



438* 


aofeq 

16,40 

,get noaber of vectors to aove 

02S2 

22DB 



439* 

sun 

aove.l 

(aO)t.(al)^ 

,aove pointers to interrupt vectors 

02S4 

SICB 

FFfC 


440* 


dbra 

dO.SUll 






441* 





02SI 

6100 

04C8 


442* 


bst 

KBinit 

) initialise keyboard 

02SC 

6100 

0710 


443* 


bst 

OSinit 

,inrtiaiite display 





444* 





0240 

41FA 

03F84 


445* 


lea 

asgl.aO 

,aesg - "Corvus CONCEPT Iniiialiiation'' 

0264 

6100 

0760 


446* 


bst 

DSputst 

, output aessage 

0260 

41FA 

FE26^ 


447* 


lea 

asgcpf ,a0 

iaesg - copyright notice 

Q26C 

6100 

07S8 


448* 


bst 

DSputst 

.output aessage 

0270 

41FA 

040Ei 


449* 


lea 

asg2,a0 

;aesg • carriage returns 

0274 

6100 

07S0 


450* 


bst 

DSputst 

, output aessage 





451* 
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<53* , 

<54* i SioUD -- Eiaiine slots for known derices 
<55* i 


027S 

2A7C 

0080 

0771 

458* 

SlotIO 

•orea. I 

•CFslltyp.aS 


get pointer to slot types table 

027E 

227C 

0003 

0200 

457* 


•orea.l 

I$3fl200.al 


get pointer to slot 1 interface PROH 

i)Z8< 

7C01 



458* 


noreg 

• i.d8 


get indei for slot 1 





459* 






C28< 

122? 

0001 


480* 

SiotlOl 

Bore.b 

OKaU.dl 


get interface pron code (101 

02BA 

E189 



481* 


Isi.i 

•8,di 



02 SC 

1229 

0003 


482* 


■ore.b 

03(al),dl 



0290 

£189 



<83* 


Isi.l 

88, dl 



02 92 

1229 

0005 


484* 


Bore.b 

OSlaD.dl 



0296 

E189 



485* 


Isl.I 

18, dl 



0298 

1229 

0007 


488* 


■ore.b 

07{al),dl 



029C 

1429 

0009 


487* 


■ore.b 

09(al),d2 


get interface proa code (ID) 

02A0 

E18A 



486* 


Isl.i 

18, d2 



02A2 

H29 

OOOB 


489* 


■ore.b 

IKall.dZ 



G2Ai 

E18A 



470* 


isl.i 

18. d2 



02A8 

1429 

3000 


471* 


■ore.b 

i3(al>,d2 



02AC 

EISA 



472* 


Isl.i 

88, d2 



02AE 

1429 

OOOF 


473* 


■ore.b 

lS(al),d2 



02E2 

4A39 

0303 

9FFF 

474* 


tst .b 

$39FFF.L 


disable interface RAM 





475* 






02B8 

B2BC 

A920 

A900 

478* 


CBp. 1 

8$A928A900,di 


is this a local disk? 

02BE 

8614 



477* 


bne.s 

SIotID2 


no. check neat derice 

02C0 

B4BC 

A903 

A93C 

478* 


CBp. 1 

8$A903A93C,d2 


IS this a local disk? 

0ZC6 

860C 



479* 


bne.s 

Slotl02 


no. check neit derice 

02C8 

8100 

0OB8 


480* 


bsf 

LOsfne 


sync with local disk 

02CC 

8034 



481* 


blt.s 

SlotlOS 


bypass slot if disk did not respond 

G2CE 

IBSC 

0001 

80FF 

482* 


■ore.b 

OOTIool.'HaS, 

d8)iset derice type 





483* 






0204 

B2BC 

A220 

AOOO 

484* 

SlotIE2 

CBp. 1 

8$A22QA000,di 


is this an Apple floppy? 

02 DA 

880E 



485* 


bne.s 

SloU03 


no. check neit derice 

02OC 

B4SC 

A283 

883C 

488* 


enp. 1 

8iA203883C,d2 


* • 

02E2 

8808 



487* 


bne.s 

SlotIQ3 


no, check neat derice 

02E4 

IBBC 

0003 

80FF 

<88* 


■ore.b 

80TaS.-l(aS,d8) 

set derice type 





<89* 






02EA 

B2BC 

434F 

5258 

<90* 

SiotI03 

CBp. I 

8'CORV‘,dl 


is this a Corras floppy? 

02F0 

881A 



<91* 


bne.s 

SlotID9 


no, check neat derice 

02F2 

B4BC 

3553 

3031 

492* 


enp.l 

8'USOr.dZ 


» 

02F8 

8812 



493* 


bne.s 

SlotI09 


no, check neat derice 

02FA 

IBEC 

0003 

80FF 

494* 


■ore.b 

8DTc8,-l(aS,d8) 

set derice type 

0300 

800A 



495* 


bra.s 

SIotID9 


check neat siot 





498* 






0302 

08F8 

0005 

OFOl 

497* 

SletlOl bset 

OS.CPsysst.w 


set test 6 failed flag 

0308 

8100 

028C 


498* 


bsi 

Flash 


t 





499* 






030C 

D2FC 

0200 


500* 

Sloti09 

adda.w 

80200, al 


update interface FROM pointer 

0310 

5248 



SOI* 


addg 

81. d8 


update slot nuaber 

0312 

BC7C 

0004 


502* 


eap.w 

84. d8 


hare we looked at all slots? 

0318 

8F00 

FF8E 


503* 


ble 

SlotlOl 


no, check nest slot 


S04* 
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03U 

7020 



504* 


fInitOp.dO 

,qet OMNINET Ttinspoitei nnabei 

031C 

4100 

0DC8 


507* 

bit 

ODcoand 

; « 

0320 

4D38 



SOB* 

bits 

SlotlDb 

,if cnot, go on 

0322 

11C7 

070D 


509* 

AOft.b 

d7,CPtprnbt.w 

is«ft OHNINET Tunsporter nuaboi 





510* 




0324 

7002 



511* 

ittvtq 

OEchoOp.dO 

,is OKHINET Tionspoitei nuabet in use? 

0320 

1207 



512* 

lotft.b 

d7,dl 

i * 

032A 

4100 

OOBO 


513* 

bst 

ODcoand 

■ « 

032E 

0C07 

OGCO 


514* 

CKpi .b 

lEchocd.d? 

i* 

0332 

440C 



515* 

bnt.s 

SlotlOi 

,no, go on 

0334 

08F8 

0004 

OFOl 

514* 

bs«t 

t4,CPsfsst.w 

;set tost 7 liiied tidg 

0330 

4100 

0250 


517* 

bsr 

rush 

,« 

033C 

4010 



518* 

btt.s 

SlotlDb 

, bypass disk server broadcast 





519* 




0340 

207C 

0008 

EOOO 

520* 

SlotIDi lovt.l 

lUSRbise.iO 

isend broadcast aessage to disk server 

0344 

lOBC 

OOFF 


521* 

tofc.b 

ISFF.laO) 

i* in order to get disk server 

0340 

7401 



522* 

■ofcq 

11 . d 2 

;* Transporter nuaber 

03 4C 

7A33 



523* 

aofeq 

8433. dS 

, * 

034E 

7CFF 



524* 

aoveq 

8<l.d4 

; t 

03S0 

4100 

0E3E 


525* 

bsr 

QDdsblO 

,* 

0334 

7032 



524* 

aof«q 

8432, d5 

, t 

0354 

4100 

0E38 


527* 

bsr 

QDdsklO 

,* 





528* 




0350 

11C7 

0701 


529* 

SlotlOb aovc.b 

d7.CFbtsivt.w 

;save boot server nuaber 

035E 

4D04 



530* 

blt.s 

RptSut 

.if error, go on 

0340 

187C 

0002 

0004 

531* 

aore.b 

8DToani,4(aS> 

.set device type 


S32* 
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534* . 

S3S* , RptStat •- Report results of sfstea initiaiiiation tests 
53b» , 


03 66 

7 200 


537* 

RptStat 

auveq 

10, dl 

, initialise test nuaber 

036S 

4A38 

OFOi 

538* 


1st b 

CPsyssr -w 

,any systea errors? 

u3 6C 

6608 


339* 


bne.s 

RptStl 

,yes, report thea 

03 6E 

41FA 

03 98f 

540* 


lea 

Bsg32,a0 

,aesg - AH systea tests passed 

03 72 

6 1 GO 

0632 

541* 


bst 

DSputst 

.output aessage 




542* 

543* 

, .... 

bra . s 

RptStS 

.output carriage returns 

03 7 6 

0 338 

croi 

544* 

RptStl 

btst 

dl .CFspsst w 

.did current test pass? 

03 7A 

671 A 


545* 


boff $ 

Rptst: 

,yes, go on 

0 3 7 C 

41FA 

0 3 7 4 + 

546* 


lea 

asg30,a0 

,aesg > Systea test 

03S0 

6100 

0&44 

547* 


bsr 

DSputst 

.output aessage 

03 6 4 

1301 


548* 


ao«e b 

di.dO 

.get test nuaber 

03 86 

3 600 

0 03 1 

549* 


addt . b 

l$31,dC 

j » 

03 8A 

6 100 

D64C 

550* 


bst 

DSputch 

ioutput test nuaber 

03 8E 

41FA 

0 36F + 

551* 


lea 

BsgSi.aC 

,aesg - failed 

0392 

6100 

0 6 32 

552* 

553* 


bsr 

DSputst 

.output aessage 

03 9 6 

5 2 4 1 


554* 

RptStZ 

addq 

11, dl 

increaent test nuaber 

03 9 8 

B2 7C 

0 007 

555* 


cap w 

#7,dl 

.finished with all tests? 

0 3 9C 

6.-08 


556* 


ble.s 

RptStl 

,no, process neit test 




55 7* 





G39E 

41FA 

02E0 + 

558* 

Rpista 

lea 

asg2,a0 

.output carnage returns 

03A2 

6100 

0 622 

55 9* 


bsr 

DSputst 


03A6 

1D7C 

OOOF 0075 

560* 


Boie .b 

l$6F,$75ta6» 

.syaaetiicai ware shape 

03 AC 

i07C 

OOAO 0071 

561* 


acre . b 

•$A0,S7i(a«l 

icutput a low pitch tone 


333! 303C FfFE 362* tove.w l$FFFE,dO , short deiay 

03B6 3iC3 FFFE 563* RptSl? dbta dO.RptSt? 

03BA iD7C aSFF 0075 364* aofe.b i$FF,$73(ao) 

56 5* 


.turn off tone 
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567* 

, 








568* 

i SelBoot — Select boot type 






569* 

i 




03C8 

1039 

0003 

0F61 

570* 

SelBoot 

love b 

lObootsw L,dO 

,get boot selection switches 

03Ct 

0243 

OOCO 


571* 


andi w 

IlCO.dO 

, * 

Q3C& 

670C 

008A 


572* 


beq 

SBuser 

;00 - user select 

OSCE 

OCOO 

0040 


573* 


cipi b 

i$40,d0 


3302 

6734 



574* 


beq. s 

SBlocal 

,01 - local disk boot 

0304 

OCOO 

ODBC 


575* 


cipi b 

t$BO,dO 


0301 

6722 



576* 


fceq.s 

SBoini 

;02 - uHNIKET disk boot 

030A 

6038 



577* 


bra .5 

SBClpy 

,03 - floppy disk boot 





578* 





030C 




579* 

SBdebug 




03OC 

41F9 

0002 

0004 

580* 


lea 

HXBinit.L.aC 

,*kb is debug PROM present! 0 

03C2 

43F9 

0002 

OOOC 

581* 


lea 

MXBbase4iC.L,al 

,*lb changed test to same as in G 

03EB 

B300 



582* 


cipa . i 

(aOl.al 

,*kb SetKB init proi G 

03CA 

666A 



583* 


bne.s 

SBaser 

,no, ask user tor boot device 

03CC 

41FA 

02A7t 


534* 


lea 

isg4,a0 

,iesg - MACSEUG liG on CataComa 0 G 

O3F0 

6100 

05D4 


585* 


bst 

DSpatst 

.output lessage 

03F4 

2079 

0002 

0008 

586* 


lovea . 1 

MZBentry .L,aO 

,*kb yes, go to debugger G 

03FA 

4ED0 



587* 


3»P 

<a0) 

; *kb 0 





588* 





03FC 

41FA 

02034 


589* 

SBoini 

lea 

isgll ,a0 

,iesg - OHNINET disk bool" 

0400 

6146 



590* 


bsr.s 

SBisg 

.output lessage 

0402 

6100 

0CC8 


591* 


bsr 

Oboot 

.load OS boot code 

0404 

603C 



592* 


bra.s 

SBboot 

.transfer control to boot code 





593* 





0408 

41FA 

02CF4 


594* 

SBlooal 

lea 

isql2,a0 

,iesg - "Local disk boot" 

040C 

613A 



595* 


bsr.s 

SBisg 

.output lessage 

040E 

6100 

OAEA 


596* 


bsr 

Lboot 

.load CS boot code 

0412 

6032 



597* 


bra.s 

SBboot 

.transfer control to boot code 





598* 





0414 

41FA 

02C94 


599* 

SBflpy 

lea 

isgl3,a0 

,iesg - "Floppy disk boot" 

0416 

612E 



600* 


bsr.s 

SEasg 

.output lessage 

041A 

227C 

0000 

0771 

601* 


■ovea.l 

tCFslltyp.al 

iget pointer to slot 1 type 

0420 

7001 



602* 


loveq 

11, dO 

,get initial slot number 





603* 





0422 

1231 

OOFF 


604* 

SBflpyl 

Bove.b 

-l(al,d0),Ql 

,get device type 

0424 

OCOl 

0003 


60S* 


cmpi .b 

IDTc8,dl 

.is this a Corvus floppy disk interface! 

042A 

6710 



606* 


beq.s 

SeUpy2 

iyes, use it for booting 

042C 

OCOl 

0005 


607* 


cipi .0 

IDTaS.di 

.is this an Apple floppy disk inteiface! 

3430 

6710 



608* 


beq.s 

SBf lpy3 

iyes, use it for booting 

0432 

S240 



609* 


addq 

11. dO 

.update slot nuibei 

0434 

B07C 

0004 


610* 


cip . w 

14, dO 

.have we looked at all siots! 

0438 

6FE8 



611* 


ble.s 

SBfipyl 

;no, check neat slot 

043A 

60SC 



612* 


bra.s 

CoToBti 

.output error lessage 





613* 







file 

CC. PROM, TEXT 




043C 

6103 

0FD3 

415* SBflpyZ bsr 

Fboot 

G440 

4054 


414* 

bra. s 

GoToBt 




417* 



34 4! 

4100 

13D0 

418* 5Bflpy3 bsr 

Aboot 

04 46 

404E 


419* SBboot 

bra . s 

GoToBt 




42G* 



C44S 

4100 

057C 

421* SBasg 

bsr 

DSputst 

04 4C 

41FA 

0298^ 

422* 

lea 

»sgl9 ,a0 

34 56 

4100 

0574 

423* 

bsr 

DSputst 

6 4 5 4 

4E75 


424* 

rts 





425* 



34 54 

41 FA 

0 25At 

424* SBuser 

lea 

Bsgl0,a0 

34 34 

6100 

3 5 4A 

627* 

bsr 

DSputst 

04 5E 

6100 

0340 

428* 

bsr 

KBgetcb 

0442 

4130 

GS50 

429* 

bsr 

DScvtUC 

34o4 

IFGO 


430* 

•ove.b 

d0,-(sp/ 

04 61 

4100 

054E 

631* 

bsi 

OSputch 

04 6C 

700D 


432* 

■oveq 

»DSCcr,d0 

0 4 4E 

6103 

0 5 46 

433* 

bsr 

DSputch 

Cs?I 

iOlF 


434* 

■ove . b 

(sp)f,d0 

0 4 7 4 

GCOO 

30 44 

635* 

cnpi -b 

l'D*,d0 

34 78 

6700 

FF42 

434* 

beq 

SBdebug 

047C 

3C00 

0044 

437* 

cnp i . b 

IT ,d0 

0483 

4 792 


438* 

beq.s 

SBflpy 

0482 

OCOG 

004C 

439* 

cnpt .b 

I'L' ,d0 

34 84 

4700 

FF83 

440* 

beq 

SBlocal 

3484 

GCOO 

004F 

641* 

CBpl . b 

t'O' ,d0 

34 8E 

4700 

FF4C 

442* 

beq 

SBoani 

04 92 

4300 

FC20 

443* 

bra 

Setup 


444 * 


Pige ii 

load OS boot code 

transfet control to boot code 

load OS boot code 

itansiei control to boot code 

output lessage 
■esg - "disk boot" 
output nessage 
return 

•esg - "Select boot device" 
output nessage 
get replf 

convert character to upper case 
save reply 
echo reply 

output carriage return 
* 

restore reply 
debug? 
yes, do it 
Corvus floppy boot? 
yes, do it 
local disk boot? 
yes, do it 
OMNINET disk boot? 
yes, do it 

no, start over again 
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CoToBt -- Transfer control to boot code 

Enter; AO.L = Boot code entry point pointer 

Values passed in registers to the boot ace. 

* ♦ ♦ 

DO ; low user RAH address 

4. + + 

Di I high user RAH address 


D2 ! low user RAH address (sane as DO) 


D3 i high user RAH address (sane as Dl) 


049i 

&C0C 



671* CoToBt 

bge.s 

GoToBtZ 

,go on it no boot load error 





072* 




0491 

41FA 

01E9+ 


073* CoToBtl 

lea 

Bsg3,a0 

iBesg > "Boot error" 

049C 

0100 

8S28 


074* 

bst 

DSputst 

.output Bessage 

04 AO 

0000 

FFB4 


675* 

bra 

SBuser 

.select boot device again 





070* 




04A4 

0100 

OOBE 


077* GoToBtZ 

bsr 

RaBSiie 

,gec dynaBic RAH sire (al : RAH sire 

04A0 

83FC 

0009 

0000 

078* 

ctpa . 1 

t$90000,al 

,are we in PROH’ 

04 AE 

0004 



079* 

bne. s 

CoToBt 3 

,yes, go on 

04B0 

43FA 

024E 


080* 

lea 

CPbtsiot,al 

,set RAH sire to protect code 





081* 




04B4 

203C 

0008 

EOOO 

082* CoToBt3 

Bove . I 

lUSRbase.dO 

iDO > low user RAH address 

04BA 

2209 



083* 

■ove . 1 

al.dl 

;01 - high user RAH address 

04BC 

2400 



084* 

wove. 1 

d0,d2 

,D2 - low user RAH addiess 

04BE 

2601 



OSS* 

•ove. i 

dl,d3 

,D3 - high user RAH address 

04C0 

4204 



086* 

clr.I 

d4 

,D4 - 0 

04CZ 

1038 

0700 


087* 

BOfe.b 

CFbtslot.w,d4 

,D4 - boot slot 

04C( 

E14C 



488* 

Isl.w 

18, d4 


04C0 

1838 

0701 


089* 

■oee.b 

CPbtsrvi w,d4 

,D4 - boot slot/boot server 

04CC 

428S 



090* 

clt.l 

dS 

,D5 - « 

04CE 

4200 



091* 

clr.I 

dO 

;D0 - 0 

04D0 

4287 



092* 

clr.I 

d7 

;D7 - « 

04D2 

4 EDO 



093* 

1*9 

(aO) 

ienter boot code 
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696* 










697* 

, RoaTst -- Compute ebecksua fot PROM 





698* 


(FROM checksua is 

inclnded in address range) 





699* 










700* 


Enter 

AO.l 

PROM 

start pointer 





701* 



ALL = 

PROH 

end pointer 





702* 










703* 


Eiit . 

EQ 

PROM 

checksua valid 





704* 



NE 

FROM 

checksua error 





705* 






0404 

2 446 



706* 

RoaTst 

move . I 

a0,a2 


,get starting address 

04D6 

42 40 



707* 


cir .w 

dO 



04 D8 

321A 



708* 

RTl 

Bove .w 

(a2)f,dl 



04DA 

B340 



709* 


eor .w 

dl.dO 



04DC 

B5C9 



710* 


capa. I 

ai.a2 



04DE 

6DF8 



711* 


bits 

RTl 



34EC 

E07C 

FFFF 


712* 


cap .w 

#$FFFr,dO 



04E4 

4E75 



713* 


rls 



, reiurn 





714* 










715* 










716* 

, VilkBit -- Walking ones 

and 

aeros 





717* 










718* 

, 

Enter : 

AO.L : 

RAM 

start pointer 





719* 

, 





04E8 

2 448 



720* 

VallBit 

aove . I 

aO,aZ 


,get starting address 

04E8 

2248 



721* 


ao V e . 1 

aO.al 


,get ending address 

G4EA 

D3FC 

COOG 

0010 

722* 


adda.l 

l$10,al 


,* 





723* 






04 FO 

303C 

FFFE 


72 4* 

VBl 

aove .w 

4$FFFE,dO 



04F4 

3480 



725* 

VB2 

aove .w 

d0,(a2) 



04 FA 

B0S2 



726* 


cap w 

(a2),d0 



04F8 

661C 



727* 


bne.s 

VBetr 



C4FA 

£358 



728* 


toi 

«Ld0 



04FC 

65F6 



729* 


bcs.s 

VB2 







730* 






04FE 

303C 

000 1 


731* 


aove .w 

t$0001.d0 



05 02 

3480 



732* 

VB3 

aove .w 

dO.iaa) 



0504 

B052 



733* 


cap .w 

(a2),d0 



05 06 

66CE 



734* 


bne.s 

VBerr 



0508 

E340 



735* 


asl 

tl.dO 



050A 

64F6 



736* 


bcc s 

VB3 







737* 






05 0C 

D5FC 

0000 

0002 

738* 


adda. 1 

82, a2 



0512 

B5C9 



739* 


capa. I 

ai,a2 



0514 

6CDA 



740* 


bits 

VBl 







741* 






0516 

4E75 



742* 

VEeci 

rts 



.return 


743 * 
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745* . 
746* , 
747* , 
748* . 
749* , 
750* i 


0518 

2448 

751* 

Ketch 

OSIA 

4280 

752* 




753* 


OSIC 

34C0 

754* 

KRl 

OSIE 

BSC9 

755* 


0520 

66FA 

756* 




757* 


0522 

3400 

758* 


0524 

4642 

759* 


0526 

3222 

760* 

HR2 

0528 

B240 

761* 


0S2A 

6616 

762* 


052C 

3482 

763* 


0S2E 

BSC8 

764* 


0530 

66F4 

765* 




766* 


0532 

3002 

767* 


0534 

4642 

768* 


0536 

3212 

769* 

HR 3 

0538 

B240 

770* 


053A 

6606 

771* 


053C 

34C2 

772* 


05 3 E 

BSC9 

773* 


0540 

66F4 

774* 



775* 

776* MRen 
777* 


Enter; AO.L * RAH stert pointer 

Al.L s RAM end pointer 

■oie.l eO, e2 
clt.l dO 

nove.w d0,i«2)f 
cnpa.i ei,«2 
bne.s HRi 

nove.w 4D.d2 
not.w 42 
nove.w -(i2),41 
cnp.w 40,41 
bne.s KRerr 
nove.w 42 , (a 2) 
cnpt.l a0,a2 
bne.s HR2 

nove.w 42,40 
not.w 42 
nove.w (a2),4i 
cnp w 40,41 
bne.s KRerr 
nove.w 42.U2U 
cnpe.l «1,«2 
bne.s HR3 

rts 


0542 4E7S 


retorn 



File. 
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779* 







780* 

, IncTest — 





781* 

, 






782* 


Enter ; 

AO.L 3 RAK start pointer 




783* 



A1 L = RAH end pointer 




784* 




0S44 

2448 


785* 

IncTest 

■etei 

aO.al 

0S4i 

323C 

0101 

. 784* 


Bove.w 

•$101, dl 




787* 




G54A 

34CI 


788* 

ITOl 

aovc.w 

di,(a2)^ 

054C 

E359 


789* 


rol .w 

• i.dl 

554E 

B5C9 


790* 


cape . 1 

al.a2 i 

0550 

6DF8 


791* 


bit.s 

ITOl 




792* 




055 ; 

2448 


793* 


aoie. 1 

a0,a2 

0554 

323C 

0101 

794* 


aove.w 

t$10l,dl 




795* 




CS54 

B2SA 


794* 

I7C2 

cap.w 

(a2)«.dl 

CS5A 

06 O 6 


797* 


bne.s 

IT99 

05iC 

E359 


798* 


rol .w 

• I.dl 

05 it 

B5C> 


799* 


cape . 1 

al,a 2 i 

OS qG 

6 CF 6 


800* 


bits 

IT02 ; 




801* 




3362 

4E75 


802* 

IT99 

rts 

;return 




8C3* 
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80S* 

, 








106* 

i RiiSiic -> Cct end of osct RAK pointer 





807* 

i 








808* 

; 

Eiit; 

Al.L s RAK end pointer 





809* 

; 




0S44 

227C 

0009 

0000 

810* 

RanSite 

sofe.i 

8890000, al 

, 

OS&A 

0C97 

0001 

2000 

811* 


ctpi. 1 

IROHend.(sp) 

,ate we in PROH? 

6S70 

4E1A 



812* 


b^t.s 

RaaSitO 

;no, return 

0S72 

23FC 

OOOF 

FFFC 

813* 


•Oft. 1 

ISFFFFC.tFFFFC. 

Liget actual RAH site 

0S7I 

OOOF 

FFFC 







057C 

23FC 

OOOB 

FFFC 

814* 


MVC. i 

8$BFFFC,8BFFFC. 

L.* 

OSBZ 

OOOB 

FFFC 







0S84 

2279 

OOOF 

FFFC 

815* 


note. i 

SFFFFC.L.al 

, a 





816* 





GS8C 

4E7S 



817* 

RanSic9 

Its 


.return 





818* 









819* 

, 








820* 

, ZetoRai — Hofe 0 to RAH subroutine 





821* 

, 








822* 

, 

Enter . 

AO.L = RAK start pointer 





823* 

, 


Al .1 s RAH end pointer 





824* 

i 




0S8E 

4298 



825* 

ZeroRan cir.i 

(A0)a 

, 

0390 

B1C9 



826* 


cmpa . 1 

al,a0 

, 

0392 

4FFA 



827* 


ble.s 

ZetoRaa 

, 

0594 

4E75 



828* 


rts 


.return 





829* 









830* 

, 








631* 

, Flash 

Flash dispiaf screen 

subroutine 





832* 

, 




0394 

48E7 

80C2 


833* 

Flash 

aoven.l 

a0-al/a6/d0,-(spi,sa*e registers 

0S9A 

227C 

0008 

DFDO 

634* 


lofe. 1 

tOSPend-830,al 

;get pointer to end oi display screen 

OSAO 

2C7C 

0003 

OFOO 

835* 


■o?e. 1 

IVlAbase,a6 

igct pointer to VIA I/O locations 

0SA4 

ID7C 

OOOF 

0075 

836* 


AOfe.b 

l$0F,87S(a6) 

.syaaetrical ware shape 

05 AC 

107C 

0040 

0071 

837* 


•ove.b 

8$40,871(a6> 

.output a high pitch error tone 

0SB2 

207C 

0008 

0000 

838* 

Fll 

■ote.l 

8DSPbase,aO 

iget pointer to start oi display screen 

0SB8 

4458 



839* 

FL2 

not.w 

(a0)t 


OSBA 

B1C9 



840* 


capa . 1 

al,a0 


OSBC 

40FA 



841* 


blt.s 

F12 


05BE 

207C 

0008 

0000 

842* 


Bove. 1 

IDSPbase.aO 

.get pointer to start of display screen 

0SC4 

4658 



843* 

FL3 

nol.w 

(a0>« 


0SC4 

B1C9 



844* 


capa . 1 

al,a0 


05C8 

40FA 



845* 


bits 

FL3 


OSCA 

303C 

FFFE 


846* 


aofe.w 

l$FFFE,d0 

.short delay 

OSCE 

S1C8 

FFFE 


847* 

FL4 

dbta 

dO,FL4 

,» 

0502 

ID7C 

OOFF 

0075 

848* 


aofe .b 

l$FF,875U6) 

.turn off initial tone 

0508 

303C 

FFFE 


849* 


aofc.w 

•OFFFE.dO 

.short delay 

OSOC 

S1C8 

FFFE 


830* 

FL5 

dbta 

dO,FL5 


OSEO 

4CDF 

4301 


851* 


aofCB. 1 

<sp)t,a0>alfa6fd0, restore registers 

0SE4 

4E75 



852* 


rts 


.return 





653* 







Fiie CC PROK.TEIT 


F«ge n 






855* 

, 







856* 

, IMTlvl? -- process ietei 7 interrupt (ignore interrupt) 






857* 

, 



fiSEi 

4E73 



858* 

INTlfl? rte 

.return froa interrupt 






859* 








860* 








861* 

, IKTkybd - process XEyBOARO i 

interrupt (ignore interrupt) 






862* 

, 



QSE8 

003? 

0032 

0003 

863* 

INTkfbd ori.b 1802, $30F0S. L 

.ivl 6 (KYBO) - turn off reer 

interrupt 

OSEE 

0F03 







OSTG 

0239 

00F3 

0003 

864* 

andi.b 8$r3,$30F0S. L 

,IvI 6 (XYBO) - turn off lait 

interrupt 

9jF& 

SFOS 







OSFi 

4E73 



865* 

rte 

.return froa interrupt 






866* 








867* 

; 







868* 

, INTtiar -- process TIKER interrupt (ignore interrupt) 






869* 

; 



CSFA 

13FC 

007F 

0003 

870* 

INTtiar aove.b f$7F,$30F70.l 

.Ivl 5 (TIMER) - torn off VIA 

interrupt 

OiCO 

0F7D 







06C2 

4E73 



871* 

rte 

.return froa interrupt 






872* 








873* 

; 







874* 

, INTdcO -> process BATACOHHO 

interrupt (ignore interrupt) 






875* 

, 



3804 

3039 

0002 

0003 

876* 

INTdeC ori b l$02, 830F2S . L 

iivi 4 (DCO) - torn off recr 

interrupt 

S80A 

3F25 







S60C 

3239 

OOFS 

0003 

877* 

andi.b l$r3.$39F25.L 

.Ivl 4 (OCO) - torn off salt interrupt 

08H 

0F25 







3614 

4E73 



878* 

rte 

.return froa interrupt 






879* 








880* 

, 







881* 

; INToani -- process OHNIKCT inteiropt (ignore interrupt) 






882* 

, 



3616 

4A39 

0003 

orci 

883* 

INToani tst.b 830FC1.L 

ilvl 3 (OHNINET) - reset interrupt 

06 1C 

4E73 



884* 

rte 

ireturn froa interrupt 






885* 








886* 

; 







887* 

, INTdcl - process DATACOHHl 

interrupt (ignore interrupt) 






888* 

, 


- 

G61E 

0039 

0002 

0003 

889* 

INTdcl ori.b l$C2.$30F4S.L 

,!vl 2 (OCl) - turn off recv 

interrupt 

0624 

0F45 







0626 

0239 

00F3 

0003 

890* 

andi.b •$F3.$3QF4S.L 

,lvl 2 (OCl) - turn off lait 

interrupt 

062C 

0F45 







06 2E 

4E73 



891* 

rte 

.return froa interrupt 






892* 






file. CC.PRflH.TEXT 
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894 * , 

8?5* , IKTslot -- piocess SLOT intetcupt (ignore inteirapu 
89 6* . 


0630 

48E7 

8080 


897* 

INTslot Aovesi 

DO/AO.-iSP’ 

.save registers 

0634 

41F9 

0003 

0F7F 

898* 

lea 

$ S0F7F . L , AO 

,get pointer to port A ORA 

S63A 

1010 



899* 

aove . b 

(AC/ ,00 

.read port A w/o liandshaice 

063C 

0840 

0007 


900* 

bchg 

87, DO 

.toggle 102 

6640 

188G 



901* 

Bove b 

00, (AO) 

.write new 102 

0642 

4CDF 

0101 


902* 

BOVCB. 1 

(SFit.DGiAO 

.restore registers 

0646 

4E73 



903* 

(te 


; return troB interrupt 





904* 

; 







905* 

i SlotAdr *• coBpute slot address given slot noaber 





906* 

, 







907* 

, Enter. 

D6.B - Slot noBber 





908* 

, 







909* 

, Elit: 

ALL - I/O port 

address 





910* 

, 




00030100 


911* 

SlotPtr equ 

$30100 

iaddtess of slot 0 (non-eiistant ) 





912* 




0648 

ZFQ6 



913* 

SlotAdr move. 1 

d6,-(sp) 

.save register 

064A 

4886 



914* 

eit .w 

d6 

(Compute disk port address ici slot 

064C 

EB4E 



915* 

Isl .w 

85, d6 

, t 

064E 

227C 

0003 

0100 

916* 

■ove. 1 

8SlotPti,al 


6654 

D2C6 



917* 

adda .w 

d6,al 

,* 

0656 

2CIF 



916* 

Bove . 1 

(sp)f,d6 

irestore register 

0658 

4E75 



919* 

its 


, return 


920 » 
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0^5A OD OD 922* isgl data.b OSCct.OSCcr 

065C 4S6r727i7S732043 923* data b 'Corvus CONCEPT Initialixation (' 

0i&4 4F4E434SS0S42049 

SicC ftE6?74A9iUC<97A 
0^74 6l74i94F6E202028 

it7C 30 2E3A 29 924* data.b PRON»ers+$30, ' . ' ,PROHIe»US30, ’ ) ‘ 

0680 OD OD 00 92S* isgl data.b OSCet ,OSCct ,0 

0683 426F6F742C6S727; 926* isgS data.b 'Soot error . . . . ' .OSCcr.OSCcr, G 

068B 6F72202E2E2E2E0D 
0693 OC GO 

0693 OC 30 4C4143S342 927* Bsg4 data.b DSCcr.OSCcr , 'KACSBUC I/O on OataCou O'.DSCcc.O 

0o9C 5'j4720492F4F206F 
06A4 6E2C44617461436F 

C6AC 6D6D20300D 00 


06E2 

S36S6C6S63742062 

928* BsglO 

data.b 

'Select boot derice lO.f.L.O): ',1 

C6BA 

6F6F742064657669 




06C2 

636S2028442C462C 




06CA 

4C2C4F293A2000 




06D1 

4F4D4E494E4554C0 

929* ssgil 

data.b 

•OKNINET',0 

06D? 

4C6F636i6CQ0 

930* isgi2 

data.b 

'Local' ,0 

06 OF 

466C6F7G7C7900 

931* Bsgn 

data.b 

'Floppr',0 

06E6 

206469736B20626F 

932* isgl9 

data.b 

' disk boot' ,OSCcr,0 

06£E 

6F740C 00 




06 F2 

53797374656D2074 

933* Bsg30 

data.b 

'Systei test ' J 

06FA 

6573742000 




06FF 

206661696C6S64OO 

934* BsgSl 

data.b 

' failed', DSCcrJ 

0 707 

00 




0708 

416C6C2073797374 

935* Bsg32 

data.b 

'Ail sjfsten tests passed' ,DSCcr,0 

3710 

636D207463737473 




0718 

20706173736S6400 




07 20 

00 




072 1 

00 

936* 

data.b 

0 


937 * 
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939» 

inciode 

'CC. PROM. KB' 

.keyboard diiiei 


940* 





94l« 

File. CC PROM. KB 



942* 

Dite. 29-Oct- 

32 



943* 

Bf: Keith Bill 



944* 





945* 

KEYBOARD DRIVER FOR PROM <kb) 



946* 





947* 





948* 

EQUATES FOR ALL KEYBOARD SOFTWARE 


949* 





930* 

KEYBOARD DATA AREA DEFINITIONS 


951* 




00000000 

9S2* RBBfigs EQU 

0 

.FLAG JUST HI ORDER BYTE 

00000002 

933* KBBfrnt EQU 

KBBllqstZ 

.FRONT PTR save 

00000000 

934* KBBctir EQU 

KBBt'intf4 

.REAR PTR SAVE 

OOOOQOOA 

933* XBBSI4V EQU 

KBBie«i>4 

.STATUS REG SAVE AREA 

OOOOOOOC 

936* KBBbufc EQU 

KBEsrsv^Z 

.KEYBOARD BUFFER 

OOOOOOM 

937* KBBlen EQU 

RAMkbl«n-KBBbo([,NMBR OF BHES IN BUFFER 


958* 





959* 

FLAG BIT DEFINITIONS 



960* 




00000000 

961* KBFlnil EQU 

0 

.BUFFER FULL FLAG 

00000001 

962* KBFeity EQU 

1 

.BUFFER EMPTY FLAG 

00000002 

963* KBFclos EQU 

2 

.KEY CLOSURE FLAG 

00000003 

964* KBFshft EQU 

3 

.SHIFT KEY 

00000004 

963* KBFcntI EQU 

4 

.CONTROL KEY 

ooooooos 

966* XBFlock EQU 

5 

.SHIFT LOCK KEY 


967* 





968* 

MISCELLANEOUS 

EQUATES 



969* 




OOOOOOIF 

970* KBnsfc40 EQU 

UF 

.MASK TO CLEAR D7-D5 (CONTROL 


971* 





972* 

TABLE VALUES FOR PROCESSING CHARACTERS 


973* 




0000007F 

974* KBCqttit EQU 

J7F 

.QUALIFIER VALUES ) THEN THIS 

DOOODOFE 

975* KBCshft EQU 

$FE 

.TABLE VALUE FOR SHIFT 

OOOOOOFD 

976* KBCcntl EQU 

$PD 

.TABLE VALUE FOR CONTROL 

OOOOOOFC 

977* KBCIock EQU 

iPC 

.TABLE VALUE FOR SHIFT LOCK 

OOOOOOFF 

978* KBCnoch EQU 

9FF 

.TABLE VALUE FOR NO CHAR CDE 


979* 





980* 

SPECIAL ASCII 

CHARACTERS 



981* 




OOOOOOil 

982* KBCIca EQU 

'a' 

.LOVER CASE A 

0000007A 

983* KBCict EQU 

'i' 

.LOVER CASE Z 

0000003F 

984* XBCqmtk EQU 

' ? ' 

.QUESTION MARK 


985* 
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? 87 » , 



988* 

, ADDRESSES OF 

KEYBOARD UART'S 

I/O REGISTERS 


989* 

, 




00330F01 

990* 

XBRdata 

EQU 

$30F0I 

.DATA INPUT PORT 

03030F03 

991* 

XBRstat 

EQU 

$30F03 

.STATUS REGISTER 

00030FOS 

992* 

XBRcand 

EOU 

$30F0S 

.COMKANO REGISTER 

00030F07 

993* 

KBRcntl 

EQU 

$30F07 

.CONTROL REGISTER 


994* 

. 





99 5* 

, COMKANO AND 

CONTROL REGISTER VALUES 


996* 





S00G0002 

997* 

KBccOff 

EQU 

$02 

.TURN OFF UART (CMD) 

00000017 

998* 

KBCC600 

EQU 

$1? 

.600 BAUD AND 8 BIT EMIT (CTL) 

00000008 

999* 

XBccBtk 

EQU 

$08 

.XMIT A BREAK (CMD) 

00000009 

1000* 

RBccCo 

EQU 

$09 

.TURN ON I NTS & UART (CMD) 


1001* 

, 




G0000700 

1002* 

KBdsInt 

EQU 

$0700 

.DISABLE 68000 INTERRUPTS 


1003* 

1004* , 

lOQS* ; XBinit - Initialise (leset) leyboani 
1006* , 

1007* , REGISTER A2 IS (ISEO AS POINTER TO COKMAND REGISTER 

1008* , REGISTER A3 IS ADDRESS OF RBRD DATA AREA 

1009* , 


07 22 

48E7 

80FO 


1010* KBinit 

HOVEM.L 

D0/A0-A3.-(SP) 

.save registers 

0 724 

47F8 

0300 


1011* 

LEA 

RAMki>bot.V.A3 


072A 

43F9 

0003 

OF05 

1012* 

LEA 

KBRond.L.AZ 


0730 

14BC 

0 002 


1013* 

MOVE . B 

iKBccOt'f.(A2) 

.TURN OFF KBRD 

07 34 

41EB 

0000 


1014* 

LEA 

KBBngs(A3}.A0 

.CLEAR INT HANDLER FLAGS 

07 38 

4290 



1015* 

CLR.L 

(AO) 

.INCLUDES QUALIFIERS 

07 3A 

08CO 

0001 


1016* 

BSET 

IKBFeatT.(AO) 

.BUFFER IS EMPTY 





1017* 

, 







1018* 

, INITIALIZE FRONT & REAR POINTERS 





1019* 

. 



87 3E 

41EE 

OOOC 


1020* 

LEA 

KBBbufi<A3),A0 


07 4 2 

43EB 

0002 


1021* 

LEA 

KBBfcnt(A3).Al 


0746 

2ZC8 



1022* 

MOVE . L 

A0.(A1)+ 


07 48 

2288 



1023* 

MOVE , L 

A0,(A1) 


07 4A 

41 FA 

0034 + 


1024* 

LEA 

KBintt.AO 

.SETUP AUTOVECTOR 6 

074E 

21C8 

0078 


1 025* 

MOVE . L 

A0,IVlvl6.W 

iVITH ADDR OF INT HANDLER 





1026* 

, 







1027* 

. TURN ON KEYBOARD UART 






1028* 

, 



07 32 

1039 

0003 

OF03 

1029* 

HOVE.B 

KBRstat.L.OO 

.RESET UART 

0758 

1039 

0003 

OFOl 

1030* 

MOVE . B 

KBRdati.L.DO 

.CLEAR RECEIVE 

07 5E 

13FC 

0017 

0003 

1031* 

MOVE . B 

IKBcc60O, KBRcntl. L 

.8 BITS. 600 BAUD XMISSION 

0764 

0F07 







0766 

14BC 

0008 


1032* 

HOVE . B 

tKBccBrk.(A2) 

.FORCE BREAK OF KBRD 

076A 

303C 

8235 


1033* 

MOVE.y 

133333.00 

; DELAY FOR UART TO DO BREAK 

07 6E 

51C8 

FFFE 


1034* KBinitl 

DBF 

DO. KBinitl 

.NEED MINIMUM OF 33.3 KILLISECS 

0772 

14BC 

0009 


1035* 

MOVE . B 

IKBccGo.(AZ) 

.TURN ON UART ( INTERRUPTS 

0776 

46FC 

2500 


1036* 

moTc.w 

t$2500.sr 

.set prioritf to 6. KYBO intr onlf 

077A 

4CDF 

OFOl 


1037* 

MOVEH.L 

(SP)+.D0/A0-A3 

.restore registers 

077E 

4E75 



1038* 

RTS 




1039 * 
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1041* 

, 




1042> 

; KBintr - Kcfboeid interiapt service loatine 




1043* 





1044* 

, BEGIN INTERRUPT SERVICE ROUTINE. THIS IS THE ENTRY POINT. IT'S ADDRESS 




1045* 

i MUST BE PLACED IN AUTO VECTOR IlfTERRUPT 4 VECTOR BEFORE KEYBOARD INTERRUPT 




1044* 

. IS TURNED ON. 




1047* 





1048* 

i REGISTER USEACE: DO - KEYCODE 




1049* 

; D1 - CHARACTER 




1050* 

i AO - ADDRESS OF FLAG BYTE 




1051* 

. A2 - BASE ADDRESS OF KBRD DATA AREA 




1052* 


07BO 

48E7 

FFFE 

1053* 

KBintr KOVEK.L D0-A6,-(SP} .SAVE REGISTERS ON STACK 

0784 

4SF8 

0300 

1054* 

LEA RAMkbbnf .V,A2 .BASE ADDR OF KBRD DATA AREA 

0788 

417E 


1055* 

BSR.S KBgetkT KEYCODE FROM UART DATA FORT 




1054* 





1057* 

, IF BIT 7 OF KEYCODE SET THEN CLOSURE ELSE RELEASE 




1058* 


078A 

41EA 

0000 

1059* 

LEA K6BfIgs(A2),A0 

078E 

0890 

0002 

1060* 

BCLR IKBFclos.(AO) ; ASSUME RELEASE 

0792 

0800 

0007 

1061* 

BTST 17, DO .KEYCODE BIT D7 CLEAR? 

0794 

4708 


1042* 

BEQ.S KBintri .YES 

0798 

0800 

0002 

1063* 

BSET IKBFcIos.lAO) 

079C 

0880 

0007 

1064* 

BCLR 17,00 




1065* 





1066* 

, GET CHARACTER CODE FOR THIS KEYCODE 




1067* 


07A0 

43FA 

OlOCf 

1068* 

KBintri LEA KBstable.AI ;ASSUKE SHIFT TABLE 

07A4 

0810 

0003 

1069* 

BTST IKBFshft.(AO) 

07A8 

4604 


1070* 

BNE.S KBintr2 .SHIFT BIT SET 

07AA 

43FA 

0142f 

1071* 

LEA KBrteble.Al .ELSE USE REGULAR TABLE 

07AE 

1231 

0000 

1072* 

KBintr2 MOVES 0(At .DO.V) ,D1 .INDEX TABLE BY KEYCODE 




1073* 





1074* 

, IF CHAR(Dl) « $FF THEN IGNORE AND EXIT 




1075* 


07B2 

OCOl 

OOFF 

1076* 

CMPI.B IKBCnoch.Dl 

07B4 

4702 


1077* 

BEQ.S KBintr9 

07B8 

41SE 


1078* 

BSR.S KBpeoky .ELSE PROCESS KEYCODE 




1079* 





1080* 

; EXIT INTERRUPT SERVICE ROUTINE 




1081* 


07BA 

4 CDF 

7FFF 

1082* 

KBintr9 MOVEM.L (SP}^,D0-A4 .RESTORE REGISTERS 

07BE 

4E73 


1083* 

RTE .EXIT INTERRUPT 




1084* 
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108i« 

i087* 

1088* 

1089* 

1090* 

1091* 

1092* 

1093* 

1094* 

1095* 

1094* 

1097* 

1098* 


KBgetch - Get i fceyOoitd charicter 

Register useage: AO = Front pointer 

A1 s address of end of buffer * 1 

A2 = updated front pointer 

A3 s address of front pointer 

A4 s address of flag byte 

AS s address of kefboatd data area 

A6 s address of Status Register save area 

Efit. DO B - Neit character in buffer 


07C(1 

48E7 

OOFE 

1099* ABgetch MOVEM.L 

A0-A6,-(SP) 

,save all address registers 

C7C4 

4BFc 

0 3 00 

1100* 

LEA 

RAHkbbttf V,AS 

, keyboard data area 

07C8 

49ED 

0 00 0 

1101* 

LEA 

KBBflgs(AS>,A4 

.address of Flag byte 




1102* 

, 






1103* 

, Wait 

for a character in the 

Buffer. 




1104* 




07CC 

28M 

COCl 

1105* KBgchrl 

BIST 

IXBFeBty,(A4) 

.while (Buf fer.eapty) do. 

07D0 

ebFA 


1104* 

BHE.S 

KBgchrl 

; * 




1107* 







1108* 

, have 

char, check for wrap around before get char 




1109* 




07D2 

47ED 

0002 

1110* 

LEA 

XBBfrnt(AS),A3 

.pointer to Front save loc 

Q7D6 

2053 


1111* 

«OVE . L 

(A3), AO 

.Front pointer 

27D8 

43ED 

0100 

1112* 

LEA 

KBBbufr+KBBlen(A5),Al 

;end of buffer * 1 

07DC 

24 48 


1113* 

HOVE . L 

A0.A2 


C7DE 

528A 


1114* 

ADOQ.L 

tl,A2 

;add one to pointer to get neit addr 

07E0 

B5C8 


Ills* 

CMFA L 

A0,A2 

,Front=end of buffer * 1 9 

il7E2 

4604 


1116* 

BNE.3 

KBgchr2 

,No 

07E4 

45ED 

OOOC 

1117* 

LEA 

KBBbuft(AS).A2 

,yes, then pointer wraps back to beginning 




1118* 




07E8 

4DED 

OOOA 

1119* XBgchr2 

LEA 

K6Bsrsv(AS>,A4 


G7EC 

40C6 


1120* 

MOVE.V 

SR,(A6) 


07EE 

007C 

0 700 

1121* 

ORI.W 

#KSdsInt,SR 

,*** disable interrupts 

07Fi 

1010 


1122* 

HOVE.B 

(AO), GO 

.get char 

07F4 

268A 


1123* 

MOVE . L 

A2,(A3; 

.save new Front value 

07Fi 

B5E0 

0006 

1124* 

CKPA.L 

KBErear(AS),A2 

iif FrontsRear then 

Q7FA 

6 4 04 


112S* 

BNE.S 

KBgchrS 

;Buffer_e*pty ;= true, 

Q7FC 

08D4 

000 1 

1126* 

BSET 

IKBFeBty,(A4) 





1127* 




G800 

46D6 


1128* XBgchr3 

MOVE.V 

(A4),SR 

,*** enable interrupts 

0802 

4CDF 

7F00 

1129* 

MOVEM.L 

(SP)f,A0-A6 

.restore callers address regs 

G804 

4E75 


1130* 

RTS 




1131 * 
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1133* ; 

1134* , KBgetkr - GET KEYCODE (IGNORES ERRORS) 

1135* i 

1134* i EXIT . (DO) - UART DATA PORT BYTE 
1137* , 

0808 4280 1138* KBgetky CLR.L DO ,HAKE SURE HI 3 BYTES ARE 0 

1139* 

1140* , READ STATUS REGISTER TO CLEAR IRQ BIT 

1141* , ALWAYS READ DATA PORT SO IF OVERRUN THEN FOR NEXT CHAR 

1142* ; IT WILL BE CLEARED. 

1143* ; 


OBOA 

1239 

0003 

0F03 

1144* 

MOVES 

KBRstat.L.Dl 

,GET STATUS 

OF RECEIVE 

0810 

1039 

0003 

OFOl 

1145* 

MOVE . B 

KBRdata.L.DO 

.READ UART 

DATA PORT 

0814 

4E7S 



1144* 

RTS 





1147 * 
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0618 

081C 


06 IE 
38 2 2 


0824 

0828 

C82A 

GS2E 

0838 

0634 


083i 

OSSA 

083C 

8643 

0842 

0848 

3848 

084C 


08 S3 
0854 
8858 
0858 


885A 

085C 




1149» , 






1150* , Kfiproky - PROCESS CHARACTER OR QUALIFIER 



1151* , 






1152* , 

Enter : 

01 = CHARACTER CODE 

FROM TABLE 



1153* , 


00 s XEYCODE 




1154* , 


AO = ADDRESS OF FLAGS 



1155* ; 




OCOi 

007F 

. 1156* KBprokr 

CKPI.B 

IKBCqael.Dl 

.IS IT A QUALIFIER 

623C 


1157* 

BHI .S 

KBpto3 

,YES 



1158* 






1159* 

, IGNORE REST OF KElfS IF NOT CLOSURE 



1160* 

, 



061C 

0002 

1161* 

BTST 

IKBFclos,(A0) 


8738 


1162* 

BEQ.S 

XBpro9 




1163* 






1164* 

, TEST 

FOR CONTROL 




1165* 

, 



0813 

0004 

1166* 

BTST 

tXBFcntl,(AO) 


87CC 


1167* 

BEQ.S 

XBprol 

.NO. TRY SHIFT LOCX 

OCO! 

003F 

1168* 

CMPI.B 

IKBCqitk.Dl 


6308 


1169* 

BLS S 

XBprol 


3201 

OOIF 

1170* 

AHDI . B 

IKBask40,Oi 

iCLEAR BITS D7.06.D3 OF 

SOU 


1171* 

BRA.S 

KBpro2 

.PUT CHAR 



1172* 

, 





1173* 

, TEST 

FOR SHIFT LOCX 




1174* 

, 



0810 

0005 

1175* KBproi 

BTST 

tKBFIock,(A0) 


6714 


1176* 

BEQ.S 

KBpro2 

.KEY NOT DOWN 

GCOl 

006 1 

1177* 

CMPI.B 

IKBCIca.Dl 


650E 


1178* 

BCS.S 

KBpro2 

.NOT WITHIN RANGE 

OCOI 

007A 

1179* 

CKPI.B 

tXBCIcx.Ol 


6208 


1180* 

BHI.S 

XBpro2 

.NOT WITHIN RANGE 

43FA 

0064f 

1181* 

LEA 

XBsteble.Al 


1231 

0080 

1162* 

HOVE.B 

O(AhO0.V),Dl 

.INDEX TABLE BY XEYCODE 



1183* 

, 





1184* 

i IF BUFFER NOT FULL PUT CHARACTER 



1185* 

, 



0810 

0000 

1186* XBpco2 

BTST 

4XBFfaIl,(A0) 


6606 


1187* 

BNE.S 

KBpro9 


6106 


1188* 

6SR.S 

XBputch 


6002 


1189* 

BRA.S 

KBpro9 




1190* 

, 





1191* 

i PROCESS A QUALIFIER KEY 




1192* 

, 



6128 


1193* K8pro3 

BSR.S 

KBquil 


4E75 


1194* KBpro9 
1195* 

RTS 
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1197* 






U98* 

XBputch - PUT ONE CHARACTER IN BUFFER 




1199» 






1200* 

Enter : 

D1 = BYTE TO PUT IN BUFFER 




1201* 


AO = ADDRESS OF FLAGS 




1202* 


A2 = ADDRESS OF KEYBOARD DATA AREA 




1203* 






1204* 

; 





1205* 

, PUT CHARACTER IN CIRCULAR QUEUE AT REAR 




1206* 

, 


08SE 

4BEA 

0006 

1207* KBpatch LEA 

KBBrear(A2>,A5 

08U 

26SS 


1208* 

MOVE.L 

(A5).A3 

0864 

UCl 


1209* 

MOVE.B 

D1,(A3)+ .UPDATE POINTER ALSO 




1210* 

, 





1211* 

, IF REAR > ENDBUFFER THEN REAR .= BEUFFER 




1212* 

, 


0866 

49EA 

0100 

1213* 

LEA 

KBBbufc^XBBIen(A2),A4 

086A 

B7CC 


1214* 

CMPA.L 

A4.A3 

086C 

6604 


1215* 

BNE.S 

KSputl .NOT BEYOND BUFFER 

086E 

47EA 

OOOC 

1216* 

LEA 

KBBbafr(A2),A3 




1217* 

, 





1216* 

, IF FRONT : REAR THEN BUFFER FULL 




1219* 

; 


0872 

B7EA 

0002 

1220* XBpatl CMPA.L 

KBBIrnt(A2),A3 

0876 

6604 


1221* 

BNE.S 

KBpnt2 

0878 

08D0 

0000 

1222* 

BSET 

IKBFfulI.(AO) 

087C 

2A8B 


1223* XBput2 MOVE.L 

A3,(A5) .UPDATE REAR IN MEMORY 

087E 

0870 

0001 

1224* 

BCLR 

IKBFenty.(AO) .SHOW BUFFER NOT EMPTY 

0882 

4E75 


1225* 

RTS 





1226* 




, UPDATE REAR IN MEMORY 
.SHOW BUFFER NOT EMPTY 
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1228* 








1229* 

, XBqaai - PROCESS QUALIFIER KEYS 





1230* 

; 







1231* 

j 

Enter: 

01 = CHARACTER CODE FROM TABLE 




1232* 

; 


AO r ADDRESS OF FLAGS 





1233* 

; 




0884 

OCOi 

OOFE 

1234* 

KBqoal 

CHPI.B 

•KBCshft.Dl 

IS IT SHIFT? 

0868 

a04 


. 1235* 


BNE.S 

KBqaall 

NO 

088A 

7403 


1236* 


HOVEQ 

IKBFshft.D2 

BIT POSITION OF SHIFT 

088C 

6012 


1237* 


BRA.S 

XBqnai3 

CHANGE FLAG 




1238* 





086E 

OCOI 

OOFD 

1239* 

XBquall 

CHPI.B 

tKBCcntl.Dl 

IS IT CONTROL? 

089! 

6604 


1240* 


BNE.S 

KBqual2 

NO 

0894 

7404 


1241* 


MOVED 

tKBFcntI.02 

BIT POSITION OF CONTROL 

0896 

6008 


1242* 


BRA.S 

KBquaI3 

CHANGE FLAG 




1243* 





0898 

OCOI 

OOFC 

1244* 

KBqaalX 

CHPI.B 

IKBClock,01 

IS IT SHIFT LOCK? 

069C 

660E 


1245* 


BNE.S 

KBqoal9 

NO, THEN IT'S GARBAGE 

389E 

7405 


1246* 


HOVEQ 

tKBFIocfc,D2 





1247* 


; 






1248* 


, IF CLOSURE THEN SET FLAG ELSE CLEAR FLAG 




1249* 


, 



08A0 

0810 

0002 

1250* 

KBquaU 

BTST 

•KBFcIos,(A0> 


08A4 

6704 


1251* 


BEQ.S 

KBqaalB 


08A4 

QSCO 


1252* 


BSET 

D2.(A01 


G8A8 

6002 


1253* 


BRA.S 

XBqaal9 


08AA 

0590 


1254* 

KBqaal8 

BCLR 

D2,(A0) 


08AC 

4E75 


1255* 

XBqaal? 

RTS 






1256* 
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1258* 

; 









1259* 

, THE SHIFT TABLE 








1240* 

i 

TABLE IS IKDEXCD BY KCYCODE. EACH BYTE REPRESENTS THE ENTRY FOR 








1241* 

, 

THE CORRESPONDING KEYCODE. 








1242* 

i 









1243* 

i 

0 1 2 3 4 5 4 7 B 9 A B C 0 E F 

08AE 







1244* 

KBstable 









1245* 

, 

3 9 , . 4 , - cr , . 1 7 . 4 8 5 2 

08AE 

FF 

33 

39 

FF 

34 

2C 

1244* 

DATA.B 

iFF.$33.J39,JFF.S34,42C,$2D,$0D,9FF,$3l,$37,4FF,$34,$38,$35,$31 

88B8 

2D 

00 

FF 

31 

37 

FF 




08BA 

34 

38 

35 

32 



1247* 


♦ . { ! ct 1 bs . ) J P _ ’ " 








1248* 

, DATA.B 

$2B.iFF,97B.«7C.$OD,i7D,i08,iFF,i29,$3F,45fl,i5F,i3A,S7E,$22,$FE 








1249* 

, 

♦ . . { bs cr J : . , ) ? P _ ' " , 

08BE 

2B 

FF 

7B 

08 

00 

70 

1270* 

DATA.B 

$2B,$FF,$7B,SflB,$0D,$?D,$7C,5FF,929,$3F.$50,$5F,i3A,$7E,$22,5FE 

0BC4 

7C 

FF 

29 

3F 

50 

5F 




Q8CA 

3A 

7E 

22 

FC 



1271* 


$ % R 7 F C V B 

OSCE 

FF 

FF 

FF 

FF 

FF 

FF 

1272* 

DATA.B 

$FF, $FF, $FF, $FF. $FF,$FF,$FF,5FF, 524, S25,J52,S54, $44, $47, 554,942 

0804 

FF 

FF 

24 

25 

52 

54 




Q8DA 

44 

47 

54 

42 



1273* 


8 1 V £ S 0 X C esc i Q . A . 1 

OBOE 

40 

23 

57 

45 

S3 

44 

1274* 

DATA.B 

540,$23,$S7.54S.$53,$44,$58,$43,5tB,$21,$FF,$51,$FC,$41,$FE,$5A 

08E4 

S8 

43 

IB 

21 

FF 

51 




08EA 

FC 

41 

FE 

SA 



1275* 


ASYUHJNK sp 0. 

08EE 

3E 

24 

59 

55 

48 

4A 

1274* 

DATA.B 

iSE,$24.$S9,5SS,$4B,$4A,$4C,$4D,5FD,$FF,$FF,$20,$FF,$30,$FF,$2E 

08F4 

4E 

40 

FD 

FF 

FF 

20 




08FA 

FF 

30 

FF 

2C 



1277* 


* { I 0 K L ( ) 

08FE 

2A 

28 

49 

4F 

4B 

4C 

1278* 

DATA.B 

$2A,$28.$49,$4F.$4B,$4C,$3C,$3E,$FF,5FF,$FF,$FF,$Fr,$Fr,$FF,$FF 

0704 

3C 

3E 

FF 

FF 

FF 

FF 




090A 

FF 

FF 

FF 

FF 







127 ?* 
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1281* , 

1282* , THE REGULAR TABLE - UNSHIFTED OR LOVER CASE 

1283* , TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE ENTRY FOR 

1284* , THE CORRESPONDING KEYCODE. 

1285* , 

1286* , 01234S6789ABCDEF 


390E 







1287* 

KBrtable 









1288* 

, 

.. 3 9 .. 6 , - cr .. 1 7 .. 4 8 5 2 

090E 

FF 

33 

39 

FF 

36 

2C 

1289* 

DATA . B 

$FF,$33,$39,$FF,$36,$2C,$2D,$0D,$FF,$31,$37,$FF,$34,$3B,$35,$32 

0914 

2D 

OO 

FF 

31 

37 

FF 




09U 

34 

38 

35 

32 



1290* 


s . . C \ ct I bs , . 0 / p - , ' , . . 








1291* 

, DATA.B 

$3D,$FF,$5B,$SC,$OD,$5D,$08,$FF,$30,$2F,$70,$2D.$3B,$60.$27,$FE 








1292* 

, 

s . C bs cr I \ . 0 / p - , ‘ ; . . ;0 

091E 

30 

FF 

SB 

08 

OD 

5D 

1293* 

DATA . B 

$3D,$FF,$5B,60B,$0D,6SD,$5C,$FF.$30.62F,$70,$2D,$3B,$60.$27.$FE ,0 

09 24 

5C 

FF 

30 

2F 

70 

20 




09 2A 

3B 

60 

27 

FE 



1294* 


4 5 I t f g » b 

Q92E 

FF 

FF 

FF 

FF 

FF 

FF 

1295* 

DATA.B 

$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$34,$35,$72,$74.i66,J67,$76,$62 

09 34 

FF 

FF 

34 

35 

72 

74 




0?5A 

66 

67 

76 

62 



1296* 


2 3 w e s d 1 cesc 1. q a.. i 

093E 

32 

33 

77 

65 

73 

64 

1297* 

DATA.B 

632,$33,$77,$65,$73,$64,J78,$63,$1B,$31,$FF,$71,$FC,$61,$FE.$7A 

09 44 

78 

63 

IB 

31 

FF 

71 




094A 

FC 

61 

FE 

7A 



1298* 


6 7 7 u h i n a sp .. 0.. 

094E 

36 

37 

79 

75 

68 

6A 

1299* 

DATA.B 

J36,i37,$79,$75,S68,i6A,$6E,$6D.$FD,$FF,$FF,$20,$FF,$30,$FF.$2E 

09 54 

6£ 

60 

FD 

FF 

FF 

20 




095A 

FF 

30 

FF 

2E 



1300* 


8 9 i 0 i 1 , 

095E 

38 

39 

69 

6F 

6B 

6C 

1301* 

DATA . B 

S38,$39,$69,UF,$6B.S6C,$2C,$2E,$FF,iFF,$FF,$FF,JFF,$FF,$FF,$FF 

0964 

2C 

2E 

FF 

FF 

FF 

FF 




096A 

FF 

FF 

FF 

FF 







1302 * 
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1304* iDclade 'CC.PRON.DS' ,displaT Oliver 

1305* , 

1306* , File: CC.PROH.DS 
1307* ; Date: 29-Oct-B2 
1308* . 

1307* , DISPLAY DRIVER FOR PROM (ab) 05/18/62 
1310* ; 

1311* i BOTH horitontal and vertical display driver 

1312* i contains default window records, copies then into neBory 

1313* i contains default character sets 


1314* ; no CRTST code 
1315* 

no window functions 

OOOOOOiO 

1316* DSdefOf equ 

96 

default bytes per scan line 

0008DSSE 

1317* DShoneH equ 

$805SE 

horiiontal hone location 

0Q08D508 

1318* OShoneV equ 

68D506 

vertical hone location 

000000(l& 

1319* OScellV equ 

6 

character cell width 

OOQOOOOA 

1320* DScellY equ 

10 

character cell height 

000008CF 

1321* OSnaiXH equ 

717 

120*DScellV-l 

0008022F 

1322* DSnaiYH equ 

559 

S6*DScellt-l 

0000022D 

1323* DSnaiXV equ 

557 

93*D5ceIiy-l 

000002CF 

1324* DSnaiYV equ 
1325* 

719 

72*DSceIIY-l 

oooooooo 

1326* DSCct equ 

$0D 

carriage return character 

OOOOOOIB 

1327* DSCesc equ 

$1B 

escape character 

60000020 

1328* OSCblnk equ 

$20 

blank character 

00000041 

1329* DSClca equ 

$61 

lower case "a" 

0000007A 

00000020 

1330* DSClci equ 
1331* OSCditf equ 
1332* ; 

1333* , Character Set 
1334* ; 

1335* .Stblloc equ 

$7A ; lower case "i" 

$20 

Record Equates 

0 .character set data pointer (not used) 

00000004 

1336* CSlpch equ 

4 

scanlines per character 

60000006 

1337* CSbpch equ 

6 

bits per character 

00000008 

1338* CSfrstch equ 

8 

first character code - ascii 

OOOOOOOA 

1339* CSlastch equ 

10 

last character code - ascii 

OOOOOOOC 

1340* GSnasic equ 

12 

nask used in positioning cells 

10000010 

1341* CSattrl equ 
1342* 

16 

attributes 

bit 0:1- vertical orientation 

00000011 

1343* CSattr2 equ 

17 

currently unused 

00000012 

1344* CSdata equ 
1345* 

18 

offset of char data iron char record 
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1347 * , 



1348* 

, Window 

Record Equates 


SQOOOOOO 

1349* 

1350* 

VRcharpt 

equ 

0 

, character set pointer 

Q00G0004 

1351* 

WRhoaept 

equ 

4 

,hoBe (upper left) pointer 

OC000008 

1352* 

VRcaradt 

equ 

8 

.current location pointer 

COOOGOOC 

1353* 

VRhoBeof 

equ 

12 

ibit offset of ho>e location 

3C00C00E 

1354* 

VRbasei 

equ 

14 

;hoBe 1 value, relative to toot window 

ooooaoio 

1355* 

WRbasey 

equ 

16 

,hoie y value, relative to root window 

(OOOGGIZ 

1356* 

VRingthi 

equ 

18 

.■aiiiua 1 value, relative to window (bits) 

300 303 H 

1 357* 

WRlngthy 

equ 

20 

.BaiiiuB y value, relative to window (bits) 

OOGOOflU 

1 358* 

WRcursi 

equ 

22 

.current i value (bits) 

0G300G18 

1359* 

WRcnrsy 

equ 

24 

^current y value (bits) 

SOOGCOiA 

13o0» 

VRbitofs 

equ 

26 

,bit offset of current address 

OOOOGfllC 

1361* 

WRgioigi 

equ 

28 

.graphics - origin i (bits relative to hoBe 

GGOOOOIE 

1362* 

VRgrorgy 

equ 

30 

.graphics - origin y (bits relative to hoBe 

G00G0O2G 

1363* 

WRattrl 

equ 

32 

.attributes 

GOGOOGZI 

1364* 

WRaltrZ 

equ 

33 

.attributes 

GOOOOOOG 

1365* 

1366* 

vert 

equ 

0 

, 1 = vertical, 0 = horiiontal screen 

OGOOCOOi 

1367* 

graphic 

equ 

1 

, 1 = graphics, 0 = character Bode 

OOGOGGOZ 

1368* 

cuison 

equ 

2 

, 1 = cursor on, 0 = cursor off 

00000003 

136 9* 

iOTCUtS 

equ 

3 

, 1 : inverse, 0 = underline cursor 

GOOOG304 

1370* 

weapon 

equ 

4 

, 1 = wrap, 0 = clip at eoln 

00000000 

1371* 

noscroli 

equ 

5 

; 1 = no scroll, 0 = scroll 

00000022 

1372* 

1373* 

WRstate 

equ 

34 

.used for decoding escape sequences 

CC000023 

1374* 

VRrcdlen 

equ 

35 

.window description record length 

00G0CG24 

1375* 

1376* 

VRlength 

equ 

36 

.actual window record length 


i377* 
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1379* 

, 







1380* 

, DSinil - Initialise dispUf driver 






1381* 

i 



096E 

48E7 

08E0 


1382* 

DSinit KOVEH.L 

D4/A0-A2.-(SP) 

save registers 

0972 

31PC 

0040 

0744 

1383* 

KOVE.W 

IDSdetOf.CPscnofs.V 

set bytes per scan line 

097S 

41FA 

0380^ 


1384* 

LEA 

DSwndH.AO 

assuie horixontai oiientation 

097C 

4SFA 

03D0f 


1385* 

LEA 

DScsetK,A2 

* 

0980 

0839 

0003 

0003 

1384* 

BT3T 

83, lObootsw. L 

IS display horixontai? 

0984 

0F41 







0988 

4708 



1387* 

BOFF.S 

DSinitl 

yes, go on 

0988 

41FA 

0304* 


1388* 

LEA 

DSwndV.AO 

set vertical orientation 

098E 

4SFA 

03F4^ 


1389* 

LEA 

DScsetV.AX 

» 

0992 

227C 

0000 

0740 

1390* 

DSinitl HOVEL 

ICPwndrcd, Al 

get pointer to RAM window record 

0998 

7823 



1391* 

HOVEQ 

IVRlength-l,D4 

get window record length 3. 

099A 

1208 



1392* 

OSinitX MOVES 

(A0)t,(Al)i 

copy window record to RAM 0 

099C 

SlCC 

FFFC 


1393* 

DBHA 

D4,DSinit2 

V 

09A0 

207C 

0000 

0740 

1394* 

HOVE . L 

ICPwndrcd, AO 

get RAM window lecord pointer 

09A4 

214A 

0000 


1395* 

HOVE.L 

A2,VRcharpt(A0) 

set character set record pointer 

09AA 

4100 

OlEE 


1394* 

BSR 

DScuts 

display cursor on screen 

09AE 

4CDF 

0710 


1397* 

MOVEM.L 

(SP)+,D4/A0-A2 

restore registers 

09B2 

4E75 



1398* 

RTS 


return 





1399* 








1400* 

i 







1401* 

i DScvtUC - Convert character to upper case 





1402* 

, 







1403* 

, Enter: 

DO . B = ASCII character 






1404* 








1405* 

, Eiit. 

DG.B = upper case ASCII 

character 





1404* 

, 



09 B4 

OCOO 

0041 


1407* 

DScvtUC CMPI.B 

IDSCIca.DO 

>5 character lower case? 

09B8 

4SOA 



1408* 

BLO.S 

DScvtUl 

no, return 

09BA 

OCOO 

007A 


1409* 

CMPI.B 

IDSClcs.DO 

* 

09BE 

4204 



1410* 

BHI.S 

OScvtUl 

no, return 

09C0 

0400 

0020 


1411* 

SUBI.B 

IDSCdiif.DO 

convert character to upper case 

09C4 

4E75 



1412* 

OScvtUl RTS 


return 





1413* 








1414* 

i 







1415* 

i DSputst - Display a string 






1414* 








1417* 

i Enter; 

AO.L - Character string pointer 





1418* 

, 

(teriinated by 0) 






1419* 

i 



09Ci 

48E7 

8080 


1420* 

DSputst loves. 1 

DO/AO, -<SP) 

save registers 





1421* 




09CA 

1018 



1422* 

DSpstl love.b 

(aO)v,dO 

get next character 

09CC 

4704 



1423* 

beq.s 

DSpst9 

finished, return 

09CE 

4108 



1424* 

bst.s » 

DSputch 

output character 

09D0 

40F8 



1425* 

bra.s 


get next character 





1424* 




0902 

4C0F 

0101 


1427* 

DSpst9 Bovei.I 

(SP)v, DO/AO 

restore registers 

0904 

4E7S 



1428* 

rts 


return 





1429* 
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1431* , 

1432* ; DSputch - DispUf a character 
1433* ; 

1434* , Enter: 00. S - Character to ootpot 

1435* , 


0908 

48E7 

FFFE 

1436* 

DSpntch KOVEH.L 

D0-07/A0-A6,-(SP) 

isave registers 

09DC 

0240 

fl07F 

1437* 


andi .w 

l$7F,dO 

;iake character 7 bits 

S9E0 

207C 

0000 074P 

1438* 


MOVE.L 

ICPwndrcd.AO 

;get RAM window record pointer 

09E6 

2463 

0000 

1439* 


MOVE.L 

VRcharpUA0).A2 

,get character set record pointer 

09E* 

4283 


1440* 


CLR.L 

D3 


09EC 

U2B 

0022 

1441* 


HOVE.B 

VR$tate(A0),D3 


09F0 

E34B 


1442* 


LSL.V 

41,03 

, convert to state table indei 

09F2 

43FA 

0332f 

1443* 


LEA 

OSsTbl.Ai 


09F4 

3631 

3000 

1444* 


HOVE.W 

0(A1,03.V),D3 

;D3 = dist frot DSsTbl 

09FA 

4EF1 

3000 

1445* 


JMP 

0(Al.O3.U) 

,go to corrent state processing 




1446* 





Q9FE 

5226 

0022 

1 447* 

DSnitSt 

AOOQ.B 

ll,VRstate(A0i 

lincreient for neit state 

0AO2 

6004 


1448* 


BRA.S 

DSeiit 

iretnrn 




1449* 





0AO4 

4228 

0022 

1450* 

OSreset 

CLR.B 

VRstate(AO) 

, reset current state 




1451* 





0AQ8 

4CDF 

7FFF 

1452* 

DSeiit 

MOVEM.L 

(SP)+.D0-D7/A0-A6 

, restore registers 

OAOC 

4E75 


1453* 


RTS 


, return 




1454* 





GAGE 

30 3 C 

OOIB 

1455* 

OSstO 

CMP.B 

lOSCesG.OO 

;is char ESC! 

QAIZ 

67EA 


1456* 


BEQ.S 

OSnitSt 

;;es, go to neat state 

0A14 

B06A 

0008 

1457* 


CMF.V 

CSfrstch(A2),D0 

;ascinm < first chart 

OAia 

6508 


1458* 


BLO.S 

OScti 

,yes, it's a control char 

OAIA 

6148 


1459* 


BSR.S 

DSshwCh 

, display character 

OAIC 

6100 

0102 

1460* 


BSR 

DStnci 

, inccuri 

0A26 

60E6 


1461* 


BRA.S 

DSeiit 

ireturn 




1462* 





0A22 

5140 


1463* 

OScti 

SUBQ.V 

18,00 

,couence decoding Ctrl char 

0A24 

6BE2 


1464* 


BKl.S 

DSeiit 

, 

0A2i 

0C40 

0005 

1465* 


CNPI.W 

45,00 

lascinui in [8 . . 131? 

0A2A 

62DC 


1466* 


6HI.S 

DSeiit 

,yes, do cursor ctri 

0A2C 

47FA 

02DA^ 

1467* 


LEA 

DScTbI,A3 

,A3ss>}uap table for ctri chars 

OA30 

E348 


1468* 


LSL.V 

41,00 

;iake it word count 

0A32 

487A 

FFD4 + 

1469* 


PEA 

DSeiit 

;ensure RTS to eiit 

QA3i 

3033 

0000 

1470* 


HOVE.W 

0(A3,DO),DO 

;D0 is offset from DScTbi 

0A3A 

4EF3 

0000 

1471* 


JMP 

0(A3,D8> 

Jusp to proper routine 


1472 * 
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0A3E 

4241 


1474* 

DSesc 

CL8.W 

D1 

;nutiaiiie index leg 

0A4I) 

47FA 

02D2f 

1475* 


LEA 

DSeTbi,A3 

,A3=-) beginning ol table 




1474* 





0A44 

8073 

1000 

1477* 

OSescl 

CHP.W 

0(A3,D1),D0 

,does table entcy match chat’ 

0A48 

670A 


1478* 


BCQ.S 

DSesc2 

;yes, go on 

0A4A 

5841 


1479* 


ADDQ.V 

•4,01 

,go to next entc; 

0A4C 

4A73 

1000 

1480* 


TST.W 

0(A3,D1) 

,end of table? 

OASO 

ikU 


1481* 


BPL.S 

DSescl 

,no, loop 

OAS2 

40B0 


1482* 


BRA.S 

DSteset 

, return 




1483* 





0AS4 

3001 


1484* 

OSescZ 

HOVE.V 

D1,D0 

,set DO to table offset 

0AS4 

5440 


1485* 


ADOQ.V 

12,00 


OASI 

487A 

FFAAt 

1484* 


PEA 

DSreset 

.ensure RTS to reset state 

OASC 

3033 

0000 

1487* 


HOVE.V 

0(A3,D0),D0 

,00 is offset from OSeTbl 

0A68 

4EF3 

0000 

1488* 


JHP 

0(A3,D0) 

, iuap to proper routine 


1489 * 
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1491* 

1492* 


DSshwCh - OispUf ehmcter 


1493* , 

1494* , Enter: AO.L = window record pointer 

1495* , A2.L = character set record pointer 





1496* 

, 


DO.V :: ASCII character 





1497* 

, 







1498* 

; 

Note. 

Character set »nst be in bytes, not words 




1499* 

i 




0Ac4 

UOO 

FF4E 

1500* 

DSshwCh 

BSR 

OScvtUC 

convert character to upper case 

0A68 

Boa 

0008 

1501* 


CMP.W 

CSfrstch(A2),D0 

is character in character set? 

OAiC 

iOOi 


1502* 


BIT. 5 

DSshowl 

no, output space 

OAdE 

SOiA 

OOOA 

1 503* 


CMP.V 

CSUstch(A2).D0 

* 

0A72 

6F04 


1504* 


BLE.S 

DSshowl 

yes, output character 

0A74 

303C 

0020 

1505* 

DSshowl 

MOVE.W 

tDSCbink.DO 

no. output space 




1506* 





0A78 

906A 

0008 

1507* 

DSshow2 

SUB.V 

CSfrstch(A2),D0 

get relative character position 

0A7C 

47FA 

i)318t 

1508* 


LEA 

DScsetV^CSdata.aS 

get pointer to character data 

3A88 

COFC 

0006 

1509* 


MULU 

tDScellV.DO 

i 

0A84 

D7C0 


1510* 


ADOA.L 

DO. A3 

t 

8A86 

2868 

0008 

1511* 


MOVE . L 

VRcuradt(A0),A4 

get current character address 

0A8A 

322A 

0004 

1512* 


MOVE.V 

CSlpch(A2),01 

get nuiber or scan lines for character 

0A8E 

S341 


1513* 


SUBQ.V 

tl.Dl 

get count for DBRA 

0A9Q 

3638 

0764 

1514* 


MOVE.V 

CFscnots.V,D3 

get scan line length 

0A94 

3A26 

OOlA 

1515* 


MOVE.V 

VRbitofs(A0),D5 

get bit offset of character in ceil 

0A98 

2C2A 

OOOC 

1516* 


MOVE.L 

CSaask(A2),06 

get character aask 

0A9C 

. 0828 

0000 0021 

1517* 


BT5T 

Overt, VRattt2(A0) 

is this vertical orientation? 

3AA2 

671C 


1518* 


BOFF.S 

DSshowd 

no, output horiiontal character 




1519* 


, 






1520* 


; output vertical orientation character 




1521* 


; 



0AA4 

2GC6 


1522* 


MOVE . 1 

06, DO 


0AA6 

4680 


1523* 


NOT.L 

DO 

DO = inverted aask 

GAA8 

EASE 


1524* 


ROR.L 

DS,D6 

06 = positioned aask 

OAAA 

141B 


1525* 

DSshow3 

MOVE . B 

<A31t,D2 

D2 = char data 

GAAC 

EHA 


1526* 


LSL.V 

i8,02 


OAAE 

4842 


1527* 


SVAP 

D2 

get char in high word 

SAsa 

C480 


1528* 


AND.L 

DO. 02 

clear rest of source char 

0A32 

EAAA 


1529* 


LSR.L 

DS,D2 

position source char 

0A54 

CD94 


1530* 


AND.L 

D6.(A4) 

clear dest chat area 

0AB8 

8594 


1531* 


OR.L 

02. (A4) 

aove in character 

0AB8 

98C3 


1532* 


SUBA.V 

D3.A4 


OABA 

51C9 

FFEE 

1533* 


DBRA 

Dl.DSshowS 

repeat for Oi:sCSIpch-l to 0 

3ABE 

6GSA 


1534* 


BRAS 

DSshow9 

return 


1535* 
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1537* 


, 






1538* 


ootput hoiiaontal 

orientation character 




1539* 


, 



OACO 

4A84 


1540* 

DSsliow6 

TST.W 

-<A4) 

,A4==/long word with ceil 

OAC2 

EBBE 


1541* 


ROL.L 

D5,D6 

i06 = positioned mask 

0AC4 

2806 


1542* 


HOVE . L 

D6,D4 


OACi 

4684 


1543* 


NOT.L 

D4 

,04 s inverted aask 

0AC8 

7007 


1544* 


Bovcg 

•7,d0 

,use 8 bits of character data 




1545* 





OACA 

4282 


1546* 

DSshow7 

cli.l 

d2 

,cleai current scan line of character 

OACC 

4A40 


1547* 


tsl.w 

dO 

,have we used 8 bits of character data 

OACE 

603C 


1548* 


bits 

OSshw76 

,yes, pad wi th space 

OAOO 

012B 

0000 

1549* 


btst 

d0,0(a3) 

iconstruci neat horiiontal chaiactei 

0AD4 

6704 


1550* 


boil s 

DSshw7l 

,* froi vertical character data 

0AO4 

08C2 

3000 

1551* 


bset 

t0,d2 

,» 

OADA 

012E 

0001 

1552* 

DSshw71 

btst 

d0,lu3) 

,* 

OADE 

6704 


1553* 


bof f s 

DSshw72 

,* 

OAEO 

08C2 

OGQl 

1554* 


bset 

11, dZ 

,* 

0AE4 

012B 

0002 

1555* 

DSshw72 

btst 

d0,2(a3) 

,* 

QAEI 

6704 


1556* 


boll .5 

OSshw73 

,* 

SAEA 

08C2 

0002 

1557* 


bset 

82, dZ 

,* 

DAEE 

612B 

0003 

1558* 

DSshw73 

btst 

d0,3(a3) 

,* 

SAF2 

6704 


1559* 


bof f s 

OSshw74 

,* 

8AF4 

08C2 

0003 

1560* 


bset 

83, dZ 

,* 

OAFS 

012B 

0004 

1561* 

DSshw74 

btst 

dO, 4(a3> 

^ K 

OAFC 

6704 


1562* 


bof f .s 

OSshw7S 

,* 

CAFE 

08C2 

0004 

1563* 


bset 

84, dZ 

,* 

0BO2 

one 

0005 

1564* 

DSshw75 

btst 

dO,S(a3) 

,* 

OBOi 

6704 


1565* 


bof f .s 

DSshw76 

i* 

0B08 

08CZ 

0005 

1566* 


bset 

85, dZ 

,* 

080C 

S340 


1567* 

DSshw76 

sobq 

81, dO 

;indicate another bit used 

OBOE 

EBAA 


1568* 


LSL.L 

D5,D2 

, shift char into position 

OBIO 

CD94 


1569* 


AND.L 

06, (A4) 


0812 

8594 


1570* 


OR.L 

02, (A4) 


0B14 

98C3 


1571* 


SUBA.V 

03, A4 


OBU 

51C9 

FFBZ 

1572* 


DBRA 

Dl,DSshow? 


OBIA 

4E7S 


1573* 

DSshow9 

RTS 


.return 




1574* 
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1576* , 

1577* , DScrsR -- catsot right 
1578* , 


OBIC 

6100 

007E 

1579* 

DScrsR 

B3R 

DScursO 

;re>ore cursor 


QB20 

3 228 

0016 

1 580* 

DSinci 

MOVE.W 

WRcutsi(AO),Dl 

,get current cursor E position 

0B24 

5C41 


1581* 


ADOQ.V 

•OScellW.Ol 

,incre>ent 1 character space 0 

0B26 

3141 

0016 

1 582* 


MOVE.W 

Dl,VRcursi(AO) 

,save new cursor ] 

[ position 0 

CB2A 

62 68 

0012 

1583* 


CMP.W 

VRingthi(AO),Dl 

,at end at line? 

0 

0E2E 

6C08 


1584* 


BGE.S 

DSrtrni 

;yes, do carriage 

return 0 

0B30 

6 068 


1585* 


BRA.S 

OScurs 

.show cursor 

0 


1 586* 

1587* , 

1588* , OScrsU -- cursor up 
1589* , 

CB32 0 1 68 1590* DScrsl/ BSR.S DScursC .teaove cursor 

0B34 6048 1591* BRA.S DSdecf .decreient cursor Y position 

1 5 92* 

1593* , 

1594* i DSrtrn -- return 
1595* , 


0B36 

0164 


1596* 

DSrtrn 

BSR.S 

DScursO 

.renove cursor 

0B38 

4268 

0016 

1 59 7* 

DSrtrni 

CLR.V 

WRcursx(AQ) 

.xero current cursor X position 

0B3C 

0638 

0001 0766 

1 598* 


BTST 

11 .CFdsptlg.w 

,auto line feed’ 

OB 4 2 

6704 


1599* 


BOFF.S 

DStncy 

ino, increaent cursor Y position 

0B44 

6054 


1600* 


BRA.S 

DScurs 

.show cursor 




1601* 








16 02 * 

, 







1603* 

, DScrsO -- cursor down 





1 604* 

, 




0B46 

6154 


1 6 05 * 

DScrsD 

BSR.S 

DScursO 

.reiove cursor 

0B48 

3228 

OOlS 

1 606* 

DSincf 

MOVE.W 

WRcursylAOl.Dl 

;get current cursor ¥ position 

3B4C 

0641 

OCOA 

1607* 


ADDI.W 

tOScellY.Dl 

;increaent 1 character space 0 

0B50 

3141 

0018 

1 608* 


MOVE.W 

Dl.WRcursylAO) 

.save new cursor Y position 0. 

0E54 

6268 

0014 

1609* 


CMP W 

WRingthytAOl.Dl 

,at bottoB of screen? 0. 

0B58 

6F40 


1610* 


BLE.S 

DScurs 

,on bottoi line? 0. 

0B5A 

6300 

0084 

1611* 


BRA 

DSciAL 

iyes. wrap to hoie position 0. 


1612* 

1613* , 

1614* , DScrsL -- cursor lett 
1615* , 


GB5E 

613C 


1616* 

DScrsL 

BSR.S 

DScursO 

.reaove cursor 


OB60 

4A68 

8016 

1617* 

DSdecx 

TST.W 

WRcursx(AO) 

.at beginning of line? 


0B64 

6712 


1618* 


BCQ.S 

DSwraps 

.yes. wrap to previous 

line 

0B66 

SD68 

8016 

1619* 


SUBQ.W 

tDSceliW.WRcnrsx(AD) 

.decrement 1 character 

space 

QBcA 

602E 


1620* 


BRA.S 

DScurs 

;show cursor 



1621* 
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1423* 

; 








1424* 

i DScisH — cutsoi home 






142S* 

; 




OBiC 

412E 



1424* 

DSasH 

BSR.S 

DScursO 

,temove cutset 

0B4E 

4248 

0014 


1427* 

DScisHi 

CLR.V 

VRcutsi(AO) 

;sero cuttent cursor X position 

0B72 

4248 

0018 


1428* 


CLR.V 

VRcutsy(AO) 

,sero cuttent cursor ^ position 

0B74 

4022 



1429* 


BRA. 5 

DScuts 

;show cutset 





1430* 





0B7I 

4U2 



1431* 

DSwtapt 

BSR.S 

DSwtap 

, 

0B7A 

3140 

0014 


1432* 


MOVE.V 

D0,VRcuisi(A0} 

, 

0B7E 

4A48 

0018 


1433* 

DSdecy 

TST.V 

VRcursy(AO) 

,at tep line? 

QBB2 

4714 



1434* 


BEQ.S 

DScuts 

iyes, show cutset 

0B84 

0448 

OOOA 

0018 

1435* 


SUBI.V 

IDScellY.VRcocsf (AO) 

(decrement 1 character space 

0B8A 

400E 



1434* 


BRA. 5 

DScuts 

.show cutset 





1437* 





0B8C 

4280 



1438* 

DSwcap 

CLR.L 

DO 

,get current cutset X position 

0B8E 

3028 

0012 


1439* 


MOVE.V 

VRlngthi(A0),D0 

,* 

QB92 

7404 



1440* 


MOVEQ 

tOScellV,D2 

;get character width 

0B74 

8QC2 



1441* 


DIVU 

D2,D0 


0B74 

C0C2 



1442* 


MULU 

D2,D0 


0B78 

4E7S 



1443* 


RTS 


, return 





1444* 





SB7A 

4130 



1445* 

DScars 

BSR.S 

DSctsAd 

,'compute cutset address 

0B9C 

322A 

0004 


1444* 

DScursO 

MOVB.W 

CSlpch(A2),Di 

,get scan lines pet chataciet 

9BA0 

S341 



1447* 


SUBQ.V 

11,01 

;set loop counter 

DBA2 

2848 

0008 


1448* 


MOVE . L 

VRcutadt(AO) , A4 

,get current cursor address 

OBAi 

3A28 

DOIA 


1449* 


MOVE.V 

VRbitofs(A0),D5 

,get current cursor bit otfset 

OBAA 

2E2A 

OOOC 


1450* 


MOVE . L 

CSmask(A2),D7 

,get character mask 

OBAE 

0828 

0080 

0021 

1451* 


BTST 

Ovett, VRatti2(A0) 

(Vertical orientation? 

0BB4 

4704 



1452* 


BOFF.S 

DScuisi 

,no 

OBBi 

EABF 



1453* 


ROR.L 

D5,D7 


0BB8 

4004 



1454* 


BRAS 

DScuts2 


OBBA 

4A44 



1455* 

DScaisl 

TST.V 

-1A4) 


OBBC 

EBBF 



1454* 


ROL.L 

D5,D7 


OBBE 

4487 



1457* 

DSccts2 

KOT.L 

D7 

,D7 = positioned inverted mask 

OBCO 

BF94 



1458* 

DScQts3 

EOR.L 

D7,(A4) 

; invert character 

0BC2 

98F8 

0744 


1459* 


SUBA.V 

CFscnofs.V,A4 

; * 

OBCi 

51C9 

FFF8 


1440* 


D8RA 

D1 ,DScnts3 

;* 

8BCA 

4E75 



1441* 


RTS 


i return 





1442* 





OBCC 

4CA8 

0040 

0014 

1443* 

DScrsAd 

MOVEM.V VRcQrsi(A0),D5-04 

,get current cursor position 

0BD2 

4100 

OOFS 


1444* 


BSR 

DSaddt 

(Compute cursor address 

OBDi 

3147 

OOIA 


1445* 


MOVE.V 

D7,VRbitofs(A0) 

(Save cursor bit otfset 

OBDA 

214C 

0008 


1444* 


MOVE.l 

A4,VRcutadt(A0) 

isave cursor address 

GBDE 

4E7S 



1447* 


RTS 


; return 





1448* 
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1470* . 

147i* , OSclAL » clear screen 
1472* , 

OBEO 4100 FF8C 1473* OSclAl BSR OScrsHl .hole cursor 

1474* 

1475* , 

1474* , DSclES -- clear to end of screen 
1477* , 


0EE4 

6138 


1478* 

OSclES 

BSR.S 

DSC 1 EL 

, first clear this line 


0BE4 

0S2B 

0000 0021 

1479* 


BTST 

Overt, WRattr2(A0) 

.vertical orientation? 


OBEC 

4418 


1480* 


BON.S 

OScl£S2 

,yes, clear vertical screen 





1481* 




; --- clear to end of horisontal 

screen 

OBEE 

3C28 

0018 

1482* 


MOVE.W 

WRcarsy(A0),D4 

;get current cursor Y position 


0BF2 

0444 

OOOA 

1483* 

DSclESl 

ADDI.V 

•DScellY,04 

iincreient to neat line 


86F4 

3028 

0014 

1484* 


MOVE.W 

WRlngthylAOl.CO 

,get bottoi of screen limit 


OBFA 

BC40 


1485* 


CMP.W 

D0,D4 

,at bottoi of screen? 


OBFC 

4C1E 


1484* 


BCE.S 

OSciCS9 

,yes, return 


08FE 

9046 


1487* 


SUB.V 

04, DO 

.compute number of scan lines to 

clear 

OCOO 

4243 


1488* 


CLR.V 

03 

,set starting X position to 0 


0C02 

6158 


1489* 


BSR.S 

OSclrH 

.clear to bottoi of screen 


0C04 

6016 


1490* 


BRAS 

OSclES9 

.return 





U91* 




. — - clear to end of vertical screen 

0C04 

3028 

0018 

1492* 

DSclESZ 

MOVE.W 

WRcursy(AO) ,00 

;get current cursor Y position 


CCOA 

0440 

OOOA 

1493* 

DSC1E53 

ADDl.W 

•DSceliy.DO 

increment to neit line 


OCOE 

B068 

0014 

1494* 


CMP.W 

WRlngthy(A0),D0 

.at bottom of screen? 


0C12 

6C03 


1495* 


BCE.S 

OSclES9 

,yes. return 


flCH 

3C00 


1494* 


MOVE.W 

00,04 



OCU 

4243 


1497* 


CLR.W 

OS 



ecu 

6124 


1498* 


BSR.S 

DSclrV 

.clear one vertical line 


OCIA 

60EE 


1499* 


BRAS 

DSC1ES3 

.repeat until all lines cleared 





1700* 






OCIC 

4E75 


1701* 

DSclES9 

RTS 


;return 



1702* 

1703* , 

1704* , DSclEL -- clear to end of line 
1705* , 


OCIE 

6100 

FF7C 


1704* 

DSclEL 

BSR 

DScutsO 

remove cursor 

0C22 

4CA8 

0040 

0014 

1707* 


MOVEM.W 

WRcursi(AO), 05-04 

get current cursor X and Y 

0C28 

0828 

0000 

0021 

1708* 


BTST 

Overt, WRattr2(A0) 

vertical orientation 

0C2E 

4704 



1709* 


BOFF.S 

DSclELl 

no, cleat horisontal line 

0C30 

610C 



1710* 


BSR.S 

OSclrV 

clear one vertical line 

0C32 

4006 



1711* 


BRAS 

OSclEL2 

show cursor 





1712* 





0C34 

7009 



1713* 

OSclELl 

MOVED 

•OScellY-1,00 

DO s Iscanlines to clear 

JC36 

3405 



1714* 


MOVE.W 

05,03 


0C38 

4122 



1715* 


BSR.S 

OSclrH 

clear one horisontal line 

0C3A 

4000 

FF4Q 


1714* 

DSC1EL2 

BRA 

DScursO 

.show cursor 


1717* 
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0C3E 

3828 

0012 

1719* 

DScIrV 

HOVE.W 

VRlngthi(A0),D4 

get length of line 


0C42 

9B4S 


1720* 


SUB.V 

D5.D4 

compote nomber of scan lines 

clear 

0C44 

UOO 

0086 

1721* 


BSR 

DSiddr 

compote cursor address 


0C48 

3238 

0764 

1722* 


HOVE.V 

CPscnofs.V.Dl 

get bytes per scan line 


0C4C 

2C2A 

OOOC 

1723* 


HOVEL 

CS»«sk(A2),D6 

get character mask 


OCSO 

EEBE 


1724* 


ROR.L 

D7.D6 

align character mask 


OCS2 

CD94 


1725* 

DSciiVl 

AKD.L 

D6.(A4) 

clear one scan line 


0CS4 

9BC1 


1726* 


SUBA.V 

D1.A4 

compote address of neit scan 

line 

OCS4 

51CC 

FFFA 

1727* 


DBRA 

D4.DScliVl 

repeat to end of line 


OCSA 

4E75 


1728* 


RTS 


return 





1729* 






OCSC 

3B28 

0012 

1730* 

DScliH 

HOVE.V 

VRlngthi(A0).D4 

D5 = 1, 06 = r 


OC&O 

S244 


1731* 


ADOQ.V 

• 1,D4 



0C62 

3A04 


1732* 


HOVE.V 

D4.D5 



0C44 

9843 


1733* 


SUB.V 

D3.D4 



OCU 

iiOO 

0064 

1734* 


BSR 

DSiddr 

A4 = addr(i.y) , D7 = bi tnum 


0C6A 

9B47 


1735* 


SUB.V 

D7.D4 



0C6C 

4A47 


1736* 


TST.V 

D7 



0C4E 

8602 


1737* 


BHE.S 

DScliHl 



(lC7fl 

4ASC 


1738* 


TST.V 

(A4)i 



OC72 

3604 


1739* 

DScliHl 

HOVE V 

04. D3 



I1C74 

0243 

OOOF 

1740* 


ANDI.V 

i$F,D3 



0C78 

EB44 


1741* 


ASR.V 

14.04 



0C7A 

S344 


1742* 


SUBQ.V 

11. D4 



0C7C 

72FF 


1743* 


HOVEQ 

t-i.Ol 



0C7E 

3401 


1744* 


HOVE.V 

D1.D2 



OCBO 

EF69 


1745* 


LSL.V 

07.01 



0C82 

E66A 


1746* 


LSR.V 

03. 02 



9CB4 

2A4C 


1747* 

DScitH2 

HOVE.L 

A4.A5 



0CB8 

4A47 


1748* 


TST.V 

D7 



OCB8 

6702 


1749* 


BEQ.S 

DScliH3 



OCBA 

C3SD 


1750* 


AND.V 

Dl.iAS)^ 



OCBC 

3C04 


1751* 

DSclrK3 

HOVE.V 

D4.06 



0C8E 

6B06 


1752* 


BHI.S 

0Scl(H5 



0C90 

42SD 


1753* 

DSclrH4 

CLR.V 

(A5)f 



0C92 

SICE 

FFFC 

1754* 


DBRA 

D6.0SCUH4 



0C98 

4A43 


1755* 

DScltH5 

TST.V 

D3 



0C98 

6702 


1756* 


BEQ.S 

0SclrH6 



0C9A 

C555 


1757* 


AKD.V 

02, (AS) 



0C9C 

98F8 

0764 

1758* 

DScltH6 

SUBA.V 

CFscnofs.V,A4 



OCAS 

S1C8 

FFE2 

1759* 


DBRA 

D0,DSclrH2 



0CA4 

4E75 


1760* 


RTS 


return 





1761* 
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0CA6 

3028 

0016 


1763* OStib 

KOVE.V 

VReorsi(A0),D0 

get current cursor X position 

OCAA 

COBC 

0000 

FFFF 

1764* 


AND.L 

l$FFFF.OO 

clear hi word 

OCBO 

7430 



1765* 


KOVEQ 

tDSceIlV*8,02 


0C82 

60C2 



1766* 


DIVU 

02. DO 

find neit tab to right 

0CB4 

S240 



1767* 


AODQ.V 

il.DO 


0CB6 

C0C2 



1768* 


HULU 

02,00 


OCBI 

B068 

0012 


1769* 


CHP.W 

VRlQgthi(AO),00 

new 1 ) right? 

OCBC 

6302 



1770* 


BLS.S 

DStabl 

no, change i 

OCBE 

4E75 



1771* 


RTS 


return 





1772* 





OCCfi 

6100 

FEOA 


1773* DStabl 

BSR 

DScursQ 

reaove cursor 

OCC4 

3140 

8016 


1774* 


HOVE.W 

DO.VReursKAO) 

save new cursor X position 

0CC8 

6000 

FEOO 


1775* 


BRA 

DScurs 

show cursor 





1776* 









1777* 









1778* 

OSaddr coapute cursor address 






1779* 









1780* 


Enter : 

OS = I 






1781* 



06 = 1 






1782* 









1783* 


Eiit: 

OSaddr (i.y) in A4, bit offset in 07 





1784* 





OCCC 

2868 

0004 


1785* DSaddr 

HOVEA.L 

VRhoaept(A0),A4 

get hoae pointer for orientation 

OCDO 

0828 

0000 

0021 

1786* 


BTST 

lfert.VRattr2(A0) 

vertical orientation? 

0CO6 

6618 



1787* 


SONS 

OSaddrV 

yes, coapute address for vertica 





1788* 





0CD8 

DA68 

GOOC 


1789* DSaddrH 

ADD.V 

VRhaaeof(AO).D5 


OCDC 

3E05 



1790* 


KOVE.V 

05,07 


OCDE 

0247 

OOOF 


1791* 


ANDl.V 

l$F,D7 


OCE2 

E84S 



1792* 


ASR.V 

14,05 


0CE4 

E34S 



1793* 


ASL.V 

ii,OS 


0CE6 

98CS 



1794* 


SUBA.V 

05, A4 


0CE8 

CCF8 

0764 


1795* 


MULU 

CPscnofs.V,06 


OCEC 

??C6 



1796* 


SUBA.L 

06, A4 


OGEE 

4E75 



1797* 


RTS 


return 





1798* 





OCFO 

DC68 

OOOC 


1799* DSaddrV AOO.V 

VRhoaeof (AO) ,06 


0CF4 

3E06 



1800* 


HOVE.W 

06,07 


0CF6 

0247 

OOOF 


1801* 


ANOI.V 

•$F,07 


OCFA 

E846 



1802* 


ASR.V 

14,06 


OCFC 

E346 



1803* 


ASL.V 

11,06 


OCFE 

08C6 



1804* 


AOOA.V 

06, A4 


OOOO 

CAF8 

0764 


1805* 


HULU 

CPsenofs.V,DS 


0D04 

99C5 



1806* 


SUBA.L 

0S,A4 


8006 

4E75 



1807* 


RTS 


return 





1808* 
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1811* 

; iatp 

tables 






1812* 





0D08 

FES4 


1813* 

OScTbl 

DATA.V 

DScrsL-DScTbl 

ictl-H: back space 

ODOA 

FF9E 


1814* 


DATA.V 

DStab-DScTbl 

,ctl>I: tab 

ODOC 

FE3E 


1815* 


DATA.V 

DScrsD-DScTbl 

,ctl-J: line feed 

ODOE 

FE2A 


1814* 


DATA.V 

DScisU-DScTbl 

ictl-K; cursor up 

ODIO 

FE14 


1817* 


DATA.V 

DScrsR-DScTbl 

,ctl-L: cursor right 

ODll 

FE2E 


1818* 


DATA.V 

DSrtttt-DScTbl 

;ctl-H carriage return 




1817* 





0014 

0048 FES8 


1820* 

DScTbl 

DATA.V 

$48,DScrsH-DSeTbl 

icsc-H: hole cursor 

OOll 

004A FECC 


1821* 


DATA.V 

44A,DSclAL-DSeTbl 

;esc-J. clear screen 

OOlC 

004B FFOA 


1822* 


DATA.V 

$4B.DSclEL-DSeTbl 

,esc-K: clear to end of line 

0020 

00S9 FEDO 


1823* 


DATA.V 

$57,DSclES-DSeTbl 

,esc-Y; clear to end of screen 

0024 

FFFF 


1824* 


DATA.V 

-1 

,end of table 




1825* 





0024 

FCE8 


1824* 

DSsTbl 

DATA.V 

DSstO-DSsTbl 

;state 0 

0020 

FD18 


1827* 


DATA.V 

DSesc-DSsTbl 

;state 1 




1828* 





00211 

00010D4E4 


1827* 

OSwndH 

DATA.L 

DScsetH 

;VRcharpt 

0D2E 

00080SSE 


1830* 


DATA.L 

DShoteH 

;home 

0032 

0008DSSE 


1831* 


DATA.L 

DShoieH 

.address 

0034 

0000 0000 

0000 

1832* 


DATA.V 

0,0,0 

iVRhoieof ,VRbasei,VRbase; 

0O3C 

02CF 022F 


1833* 


DATA.V 

DSaaiXH.DSmaiYH 

iright.bottoi 

0040 

0000 0000 

0000 

1834* 


DATA.V 

0,0,0 

;i,y,VRbi tofs 

0044 

0000 022F 


1835* 


DATA.V 

0,OSBaiYH 

,VRgrorgi,VRgrorgy 

004A 

00 1C 


1834* 


DATA.B 

0,$1C 

,attrl,attr2 

0O4C 

00 24 


1837* 


DATA.B 

0,VRlen9th 

estate, VRrcdlen 




1838* 





0O4E 

00010D?4t 


1837* 

DScsetH 

DATA.L 

DSesetV^CSdata 

icharacter set record pointer 

00S2 

OOOA 0004 


1840* 


DATA.V 

DScellY,DScellV 

;CSlpch, CSbpch 

OOS4 

0020 OOSA 


1841* 


DATA.V 

32,90 

;CSfcstch, CSlastch 

ODSA 

FFFF FFCO 

0000 

1842* 


DATA.V 

$FFFF,$FFC0,0 

iiask, duiiy, attribs 




1843* 


; 






1844* 


; use vertical character 

set data 




1845* 


; 






1844* 
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0D6S 

000lCD84f 


1848* 

DSwndV 

DATA . L 

DScsetV 

,VRcharpt 

0D64 

00080506 


1849* 


DATA . L 

DShoaeV 

,hoae 

0D66 

00080506 


1850* 


DATA . L 

DShoaeV 

.address 

CDeC 

OCOO 

0000 

GOOD 

1851* 


DATA V 

0,0,0 

,VRhoBeof ,VRbasei,VRbasey 

0072 

0220 

02CF 


1 852* 


DATA.W 

D5iai!V,D5aai?V 

; right ,bottoa 

CD 7 6 

0000 

0000 

0000 

1853* 


DATA.V 

3,0,0 

,i,y,VRbitofs 

CD7C 

GOOG 

02CF 


1854* 


DATA.W 

8,OSaaiYV 

,VRgrorgi,VRgrorgy 

0083 

00 ID 



1855* 


DATA.B 

0,510 

,attrl,attr2 

0031 

0 0 24 



1856* 


DATA . B 

O.VRiength 

, state, VRrcdlen 





1857* 





0084 

Q0010096* 


1858* 

DScsetV 

DATA . L 

OScsetV^CSdata 

, character set record pointer 

3D86 

0006 

OOOA 


1859* 


DATA.V 

DSceIlV,05ceIl¥ 

;CSlpch, CSbpch 

0D8C 

3020 

COSA 


1660* 


DATA.V 

32,90 

,C3frstch, CSlastch 

0090 

003F 

FFFF 

0100 

1861* 


DATA.V 

$003F,5FFFF,256 

,aask, duuy, attribs 


1862* 

1863* , vertical ctiaractec set data 

1864* 


CD96 

30 

00 

00 

00 

GO 

CO 

1865* 

DATA 

B 

0,0, 0,0, 0,0 

blank 

0D9C 

30 

00 

FD 

00 

00 

00 

1866* 

DATA 

B 

fl,fl,5FD, 0,0,0 

! 

0DA2 

OO 

EO 

00 

EO 

CO 

00 

1867* 

DATA 

B 

0,$EO,0,$EO,0,0 

" 

0DA8 

IS 

FE 

28 

FE 

28 

30 

1868* 

DATA 

B 

$28,5FE,$28,$FE,528,0 

f 

ODAE 

24 

54 

FE 

54 

48 

00 

1869* 

DATA 

S 

$24, 554 , 5FE, 55 4 , $48,0 

5 

0D84 

C4 

C8 

iO 

26 

46 

00 

1870* 

DATA 

B 

5C4,5C8, 5 10, 526 , 546,0 

% 

ODRA 

oC 

92 

6A 

04 

CA 

00 

1871* 

DATA 

B 

$6C,592,$6A,504,5GA,0 

& 

ODCO 

00 

00 

20 

CG 

00 

08 

1872* 

DATA 

B 

0,0,520,5CD,0,0 

‘ 

0DC6 

00 

38 

44 

62 

GO 

80 

1873* 

DATA 

B 

0,538,544,582,8,0 

( 

ODCC 

30 

00 

82 

44 

38 

08 

1874* 

DATA 

B 

0,0,582,544,538,0 

) 

ODDI 

OS 

2A 

IC 

2A 

08 

00 

1875* 

DATA 

B 

508, 5ZA,51C,$2A, 508,0 

* 

0DC8 

08 

08 

3£ 

08 

08 

00 

1876* 

DATA 

B 

508, $08, 53E, 508, 506,0 

+ 

ODDS 

80 

01 

07 

00 

00 

GO 

1877* 

DATA 

B 

0,501,507,0,0,0 

, 

0DE4 

10 

10 

10 

10 

10 

00 

1878* 

DATA 

B 

510,510,510,510,510,0 

- 

ODEA 

80 

00 

02 

00 

00 

00 

1879* 

DATA 

B 

0,0,502,0,8,0 


ODFO 

04 

08 

ID 

20 

40 

00 

1860* 

DATA 

B 

504,506,510,520,540,0 

/ 

0DF6 

K 

8A 

92 

A2 

7C 

00 

1881* 

DATA 

E 

$7C,$8A,592,$A2,57C,0 

0 

ODFC 

00 

42 

FE 

02 

00 

08 

1882* 

DATA 

B 

0, 542, 5FE, 502,0,0 

1 

OEOl 

46 

8A 

92 

92 

62 

00 

1883* 

DATA 

B 

546, 58A, 592, 592, 562,0 

2 

0E08 

84 

82 

92 

B2 

CC 

00 

1884* 

DATA 

B 

$84,582,$92,$B2,5CC,0 

3 

OEOE 

18 

28 

48 

FE 

08 

00 

1885* 

DATA 

B 

5 1 8, 528 , 548, 5FE, 508,0 

4 

3E14 

E4 

A2 

A2 

A2 

9C 

00 

1886* 

DATA 

B 

5E4,5A2,5A2,5A2,59C,Q 

S 

OEIA 

3C 

52 

92 

92 

1C 

00 

1887* 

DATA. 

6 

53C,552,$92,592,51C,0 

6 

0E20 

80 

8E 

90 

AO 

CO 

00 

1888* 

DATA 

B 

560,58E,590,5A0,5C0,0 

, 7 

0E26 

6C 

92 

92 

92 

6C 

00 

1889* 

DATA. 

B 

56C,$92,592,592,S6C,0 

8 

0E2C 

62 

92 

92 

94 

78 

00 

1890* 

DATA 

B 

$62,592,592,594,578,0 

9 

QE32 

00 

00 

24 

GO 

00 

00 

1891* 

DATA. 

B 

0,0,524,0,0,0 


0E38 

00 

01 

26 

00 

00 

00 

1892* 

DATA 

6 

0,501,526,0,0,0 

i 

0E3E 

00 

10 

28 

44 

82 

00 

1893* 

DATA. 

B 

0,510,528,544,582,0 

< 

0E44 

00 

28 

28 

28 

28 

00 

1894* 

DATA 

B 

0,528,528,528,528,0 

s 

0E4A 

00 

82 

44 

28 

10 

00 

1895* 

DATA 

B 

0,582,544,528,510,0 

) 

OESO 

40 

80 

9A 

AO 

40 

00 

1896* 

DATA 

B 

540, 580, 59A,$A0, 540,0 

J 

0ES6 

7C 

82 

9A 

9A 

7A 

00 

1897* 

DATA 

B 

57C,582,59A,59A,57A,0 

e 

0E5C 

3E 

48 

88 

48 

3E 

00 

1898* 

DATA 

B 

53E,548,588,548,53E,0 

A 

0E62 

FE 

92 

92 

92 

6C 

00 

1899* 

DATA 

B 

5FE, 592,592, 592, 56C,0 

B 

0E68 

7C 

82 

82 

82 

44 

08 

1900* 

DATA 

B 

57C, 582, 582, 582, 544,0 

C 

0E6E 

FE 

82 

82 

82 

7C 

00 

1901* 

DATA 

B 

5FE, 582,582, 582, 57C,0 , 

0 



Pige 4? 
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0E74 

FE 

92 

92 

82 

82 

00 

1902* 

DATA 

B 

iFE, 592. 592. $82, $82,0 

, E 

0E7H 

FE 

90 

90 

80 

80 

00 

1903* 

DATA 

B 

$FE,$98.590. 580, $80.0 

, F 

0E80 

7C 

82 

8A 

BA 

4C 

00 

1904* 

DATA 

B 

57C,$82,58A,$8A,$4C,0 

, c 

OESi 

FE 

10 

10 

10 

FE 

00 

1905* 

DATA 

B 

5FE,510,510,510,$FE,0 

, H 

0E8C 

00 

82 

FC 

82 

00 

00 

1906* 

DATA 

B 

0,582,5F£.$82,0,0 

, I 

OE92 

04 

82 

82 

FC 

80 

00 

1907* 

BATA 

B 

5O4,582,$82,5FC,5B0.0 

, J 

0E98 

FE 

10 

28 

44 

82 

00 

1908* 

DATA 

B 

5FE, 510,528, $44, $82,0 

, K 

0E9E 

FE 

02 

02 

02 

02 

00 

1909* 

DATA 

B 

5FE, 502, 502, 502, $02,0 

, L 

0EA4 

FE 

40 

30 

40 

FE 

00 

1910* 

DATA 

B 

5FE,540,530,$4fl,5FE,fl 

, M 

OEAA 

FE 

20 

10 

08 

FE 

00 

1911* 

DATA 

B 

5FE,520,$10,508,$FE,0 

, N 

OEBO 

7C 

82 

82 

82 

7C 

00 

1912* 

DATA 

E 

57C,$82,582,$82,57C,fl 

, 0 

OEBi 

FE 

90 

90 

90 

60 

00 

1913* 

DATA 

B 

5FE, 590, 590, 590, $60,0 

, P 

OEBC 

7C 

82 

8A 

84 

7A 

00 

1914* 

DATA 

E 

$7C,$82,$8A,$84,$7A,0 

, Q 

0EC2 

FE 

90 

98 

94 

62 

00 

1915* 

DATA 

6 

5FE, $90, 598, 594, $62,0 

, R 

0EC8 


92 

92 

92 

4C 

00 

1916* 

DATA 

B 

$64,$92,$92,$92,$4C,0 

, 5 

OECE 

80 

80 

FE 

60 

80 

00 

1917* 

DATA 

B 

$80, $80, 5F£, 580, $80,0 

, T 

0ED4 

FC 

02 

02 

02 

FC 

00 

1918* 

DATA 

B 

5FC,502,$02,$02,5FC,0 

, U 

OEDA 

F8 

04 

02 

04 

F8 

00 

1919* 

DATA 

B 

$F8,$Q4,$02,$04,$F8,0 

, V 

0EE9 

FC 

02 

1C 

02 

FC 

00 

1 920* 

DATA. 

B 

$FC,$02,$1C,$02,$FC,0 

, w 

OEEi 

C8 

28 

10 

28 

C6 

00 

1921* 

DATA 

B 

$C6,$28,$10,528,5C6,0 

, 1 

OEEC 

CO 

20 

IE 

20 

CO 

00 

1922* 

DATA 

E 

$C0,$20,$lE.$20,$C0,fl 

, Y 

0EF2 

86 

8A 

92 

A2 

C2 

00 

1923* 

DATA 

B 

586,58A.$92,5A2,$C2,0 

, 2 

QEF8 

0000 





1924* 

DATA. 

V 

0 



1925* 



fsle CC FROM. TEXT 
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1927* include 'CC.PROH.LD' .local disk dtitet 

1728* ; 

192?* , File, CC.PROH.LD. TEXT 
1930* , Date; 29-Jun-82 
1931* , By. L. Franklin 
1932* 

1933* , 

1934* ; Lboot -- Local Coitas disk boot processing 
1935* , 


OEFA 

UK 

3000 0771 

1936* 

Lboot 

BOfea 

«CPslityp,al 

.get pointer to slot 1 type 

OFOO 

700 1 


1937* 


■oteq 

81, dO 

iget initial slot nuaber 




1938* 





0F02 

1231 

OOFF 

1939* 

LbootlO 

■ote. b 

-l(al,dO),dl 

.get device type 

0FG4 

323C 

GOOl 

1940* 


cap . b 

•DTIoci.dl 

,is this a local disk interface^ 

OFOA 

670C 


1941* 


beg . s 

LbootSO 

,yes, use it for booting 

OFCC 

5240 


1942* 


addg 

11, dO 

.update slot nuaber 

OfflE 

B07C 

0004 

1943* 


cap.w 

84. dO 

.have we looked at all slots* 

GF12 

4FEE 


1944* 


ble. s 

LbootlO 

,no, check neat slot 

0F14 

7EFF 


1945* 


Boieg 

8-1. d? 

;set error return code 

OFla 

6054 


1944* 


bra.s 

Lboot90 

.return (can not find local disk) 




1947* 





0F13 

IICO 

0700 

1948* 

Lboot30 

move . b 

dO.CPbtslot.w 

.set boot slot nuaber 

one 

4238 

0 70 1 

1949* 


clr b 

CPbtsrer .w 

.set boot server nuaber 

GF20 

4DFA 

004A> 

1950* 


lea 

LDblkiQ,a4 

.set boot disk blk i/o subr pointer 

OF 2 4 

21CE 

C714 

1951* 


io«e . 1 

a4,CPblkio.w 

.* 

0F28 

4DFA 

010C + 

1952* 


lea 

LDdskIC,a4 

.set boot disk i/o subr pointer 

0F2C 

21CE 

0716 

1 953* 


love . i 

a4,CPdskio.w 

;* 


1954* , 

195S* , lall through to LbootlO (used by OHNINET boot too) 
1954* , 

1957* 
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Pige SI 





1959» 

, 







1980* 

i LbootSO -- Get 4 boot blocks 

froB Corvus disk 




1981* 

, 

(code shaied by local disk boot and OMNINET disk boot) 




1982* 





QF30 

207C 

0008 EOOO 

1983* 

LbootBO 

Bovea.l 

8USBbase,aO 

,get block baflet pointer 

0F3i 

iC38 

0701 

1984* 


>ofe.b 

CPbtsiwr .w, d8 

iget boot server nuBber 

0F3A 

8D32 


1985* 


blt.s 

Lboot90 

,]ust return it invalid server nuaber 

0F3C 

E14E 


1988* 


Isl M 

88, d8 

,* 

0F3E 

1C38 

0700 

1987* 


■ove.b 

CPbtslot.w,d8 

,get boot slot nuaber 




1988* 





0F42 

lOBC 

0014 

1989* 


Booe.b 

•$14,(a0) 

,set "boot" coaaand 

0F4i 

103C 

0007 

1970* 


■oie.b 

I$07,d0 

.set boot block nuaber 

0F4A 

323C 

0803 

1971* 


Bove.w 

t$803,dl 


0F4E 

8120 


1 972* 


bst s 

LDgetBB 

,get neii boot block 

OFSO 

8D1C 


1973* 


bits 

Lboot90 

ijust return ir error 




1 974* 





0FS2 

323C 

0403 

1975* 


■Qfe.w 

•$403, dl 


OFSi 

8118 


1978* 


bsr s 

LDgetBB 

;get neit boot block 

0F58 

8D14 


1977* 


bit s 

Lboot90 

i just return it error 




1978* 





OFSA 

323C 

0203 

1979* 


•ove.w 

t$203,dl 


QF5E 

8110 


1980* 


bsr s 

LDgetBB 

,get neat boot block 

0F6Q 

8D0C 


1981* 


blt.s 

Lboot9G 

ijust return if error 




1982* 





0F62 

323C 

0003 

1983* 


BOfe.w 

•$3,dl 


OFU 

810B 


1 984* 


bsc .5 

LDgetBB 

.get neit boot block 

0FA8 

8D04 


1985* 


bits 

Lboot90 

ijust return if error 

OFiA 

DOFC 

0004 

1 988* 


adda .w 

S$4,a0 

iget pointer to boot code 




1987* 





0F8E 

4E75 


1988* 

Lboot90 

rts 


.return 




1989* 





OF 78 

1140 

0001 

1990* LCgetBB 

BOTe.b 

dO, lUO) 

.set boot block nuaber 

0F74 

7402 


1991* 


Boieq 

12. d2 

.get nuaber or bytes to send 

GF78 

7A33 


1992* 


loveq 

iDskVrit.dS 

iget "write" coaaand 

0F78 

4E98 


1993* 


jsr 

(a8) 

isend write coaaand 

0F7A 

OOCl 


1994* 


adda.w 

dl.aO 


0F7C 

343C 

0201 

1995* 


■ove.w 

8513, d2 

.gel nuaber of bytes to receive 

OFBO 

7 A3 2 


1998* 


Boveq 

•DskRead.dS 

,get "read" coaaand 

0FS2 

4E98 


1997* 


jsr 

(a8) 

.send read coaaand 

0F84 

8D04 


1998* 


bit. 5 

LDgetBX 

.just return if error 

0F86 

90C1 


1999* 


soba.w 

dl,a0 


QFB8 

5340 


2000* 


subq 

81, dO 

iupdate boot block nuaber 

OFBA 

4E7S 


2001* 

LDgetBX rts 


.return 


2002 * 



File 
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Pige 32 


2004* 

, 



2005* 


LDbiklO - Reid or write a local disk block subrootine 

2006* 




2007* 


Enter : 

AO .L - Buffet address 

2008* 



OO.V - Block sotber 

2009* 



01 .V - Drive aasbec 

2010* 



DS.V - Read (632) or Vriie ($33) comiand 

2011* 



06. B - Slot nuabet 

2012* 




2013* 


Eiit. 

AO L - Neit free location in buffer 

2014* 



OO.V - Updated block nuaber 

2015* 



D7.V - lORESULT (disk controller statusi 

2016* 




2017* 


All other registers are preserved. 

2018* 




2019* 


Corvus 

controller status register [3(al)]: 

2020* 




20 2 1 * 


bit 7. 

controller ready off - ready on - not ready 

2022* 


bit 6 . 

bus direction off - host to cntlr on - cntlc to host 

20 23* 





0F8C 

48E7 

E040 

20 24 * 

LDblklO 

aovea 1 

al/d0-d2,-(sp) 

,3ave registers 

0F90 

6100 

F6B6 

2 02 5* 


bsr 

SlotAdr 

,Ai : I/O port address 

0F94 

3405 


2026* 


aove .w 

dS,d2 

(Send a read ($32i or 

0F94 

6163 


2027* 


bsr s 

LOsendi 

, write (S33) biock comaand 

0F9! 

340 1 


20 28* 


aove .w 

dl,d2 


0F9A 

6150 


2 029* 


bsr s 

LOsend 

,Send drive nuaber 

0F9C 

3 400 


2030* 


aove w 

d0,d2 


0F9E 

614C 


2031 * 


bsr ,s 

LOsend 

,Send LSB of block 

OFAfl 

E04A 


20 32* 


isr .w 

18, d2 


CFA2 

6148 


2033* 


bsr . s 

LDsend 

.Send MSB or block 

0FA4 

CC45 

0033 

2034* 


capt .w 

IOskVrit,d5 

,Are we reading or writing* 

3FAI 

66 1C 


2035* 


bne .s 

LDtiol 

.Reading 




2036 * 








2037* 




.Write biock processing 




2038 * 





OFAA 

343C 

OlFF 

2039* 


aove .w 

t$lFF,d2 

.Block site - 1 

OFAE 

08 29 

0007 00 

03 2040* 

LOwiol 

btst 

#7,3(al; 

.Test controller status 

0FB4 

66F8 


2041* 


bon s 

LDwiol 

.Wait until controller ready 

8FE6 

1358 

000 1 

2042* 


aove b 

(a0)t,l(al) 

.Send a byte 

OFEA 

51 CA 

FFF2 

2043* 


dbra 

d2 , LOwiol 

.Loop until done 

OFBE 

6156 


2044* 


bsr . s 

LOwait 

.Wait for. line to turn 

CFCO 

1E29 

000 1 

2045* 


aove . b 

Ual),d7 

.Fetch result code 

SFC4 

oC 1C 


2046* 


bras 

LDrtrn 

.Return 


2047* 
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2049* 




, 





2050* 




(Read block processing 





2051* 




, 

OFCi 

6 HE 



2052* 

LDciol 

bsc . s 

LDwai t 

.Wait lor the line to turn 

0FC8 

1E29 

0001 


2053* 


■ove b 

Kal),d7 

, Fetch result code 





2054* 




, 

OFCC 

0829 

0007 

0003 

2055* 

LDiio3 

btsi 

I7,3U1) 

,Test controller status 

0FD2 

68F8 



2056* 


bon. s 

LDiio3 

,Vait until controller ready 

0FD4 

0829 

0006 

0003 

2057* 


blsl 

»6,3(al) 

,Test bos direction 

0FD8 

8706 



2058* 


bon . s 

LDHin 

(Finished il 'host to conttcllet" 

OFDC 

10E9 

0001 


2059* 


Bove.b 

l(al},(aO'i'» 

(Store neit byte 

OFEO 

60EA 



2060* 


bca.s 

LDr io3 

,Oo get any Bore 





206 1* 




( 

0FE2 

4CDF 

0207 


2062* 

LOrtin 

BOVeB. 1 

isp)f ,al/dO-di 

(Restore registers 

OFE& 

S240 



2063* 


addq .w 

tl.dO 

(Update block noBber 





2064* 

; 

Bove. b 

o7 iCPdiskRC.w 

(Save current disk return code 

OFE8 

4887 



2065* 


eit .w 

d7 

(Set return condition code 

OFE8 

4E75 



2066* 


rls 


(Return 





2067* 
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2069* 

, 







2070* 

, LDsend -- Send a bjfte to the 

disk port subroutine 





2071* 








2072* 

; Enter: 

Al.L - I/O port 

address 





2073* 


02. B - Byte to 

send 





2074* 








2075* 

i Ail registers are preserved. 





2076* 

, 



OPEC 

0829 

0007 

0003 

2077* 

LDsend btst 

t7,3(al) 

iTest controller status 

OFF2 

6SF8 



2078* 

bon.s 

LOsend 

iVait until controller ready 

OFF4 

1342 

0001 


2079* 

■ove.b 

d2,l(al) 

.Send the byte 

OFFS 

4E75 



2080* 

rts 


iReturn 





2081* 








2082* 








2083* 

, LOsendl -- Send first byte to 

the disk port subroutine 





2084* 

, 







2085* 

) Enter: 

Al.L - I/O port 

address 





2086* 

, 

02. B - Byte to 

send 





2087* 

, 







2088* 

, All registers are preserved. 





2089* 

, 



OFFA 

46DF 



2090* 

LDsendO aove.w 

(splf ,sr 

;enable interrupts 

OFFC 

4E71 



2091* 

nop 


i leave some tiae for interrupt processing 

OFFE 

4E71 



2092* 

nop 


,* 

iODO 

40E7 



2093* 

LDsendl love.w 

sr,-(sp) 

,save interrupt level 

1002 

007C 

0700 


2094* 

ori .w 

#$0700, sr 

.disable interrupts 

lOOS 

0829 

8007 

0003 

2095* 

btst 

I7,3(al) 

.test controller status 

lOOC 

66EC 



2096* 

bon.s 

LOsendO 

iwait until controller ready 

lOOE 

1342 

0001 


2097* 

sove.b 

d2,l(al) 

;send first byte 

1012 

46CF 



2098* 

Bove.w 

(sp}^,sr 

^enable interrupts 

lOH 

4E75 



2099* 

rts 


;return 





2100* 








2101* 

, 







2102* 

; LOwait -- Wait for the line to turn subroutine 





2103* 








2104* 

, Enter: 

Al.L - I/O port 

address 





2105* 




lOU 

2F00 



2106* 

LOwait Bove.l 

d0,-(sp) 

isave register 

1018 

7084 



2107* 

■oveq 

4100, dO 

.wait a little bit 

lOlA 

51C8 

FFFE 


2108* 

LOwait 1 dbra 

dO.LOwaitl 

;* 

lOlE 

201F 



2109* 

move. 1 

(sp)e,dO 

.restore register 

1020 

6102 



2110* 

bsr . s 

LOwait2 

;check two tiaes in case of glitch 

1022 

4E71 



2111* 

nop 







2112* 




1024 

0829 

0007 

0003 

2113* 

LDwait2 btst 

i7,3(al) 

itest controller status 

102A 

68F8 



2114* 

bon.s 

LOwait! 

iwait until controller ready 

102C 

0629 

0006 

0003 

2115* 

btst 

I6,3(al) 

itest bus direction 

1032 

67F0 



2116* 

boff.s 

LOwait! 

iwait until “controller to host" 

1034 

4E75 



2117* 

rts 


iretori 


211S* 
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103i 

103A 

103E 

1040 
1042 

1041 


1040 

104A 

104C 

104E 

lOSO 

1054 

1058 

105A 


lose 

lOSE 

1062 

1064 

106A 

106C 

1072 

1074 

1078 

107X 

107E 

1080 





2120» 








2121* 

LOdsklO - Read froi/Vrite to 

Corvus disk 




2122* 








2123* 


Enter : 

AO.L - Buffer address 




2124* 



D2.V - Count 





2125* 



DS.V - Read (632) or Write ($33) coBBand 




2126* 



D6.B - Slot nuBber 




2127* 








2128* 


Eiit : 

D7.W - lORESULT 

(disk controller status) 




2129* 








2130* 


All other registers are 

preserved 




2131* 





48E7 

FOCO 


2132* LDdsklO 

■OTen. 

d0-d3/a0-al,-(sp)iSave registers 

6100 

F60C 


2133* 


bst 

SlotAdr 

,A1 = 1/0 port address 

3602 



2134* 


move.vr 

d2,d3 

,get count 

5343 



2135* 


snbq w 

il,d3 

,3et DBRA loop length 

0C4S 

0033 


2136* 


enpi w 

•DskWrit.dS 

,Are we reading or writing? 

6614 



2137* 


bne s 

LDdsk2 

(Reading 




2138* 








2139* 

Write 

Coreas 

disk processing 





1140* 





1418 



2141* 


nove. b 

(a0)t,d2 

,get first byte 

61B4 



2142* 


bsr s 

LDsendl 

.send first byte 

6006 



2143* 


bra 5 

LDdskU 

.send rest of bytes 

1418 



2144* LDdskl 

Bove b 

(a0)4,d2 

.get neit byte 

6100 

FF9A 


2145* 


bsr 

LOsend 

.send neit byte 

31CB 

FFF8 


2146* LDdskU 

dbra 

d3, LDdskl 

iloop until done 

7E00 



2147* 


Boveq 

»0,d7 

iforce successful result code 

601E 



2148* 


bta.s 

LDdsk9 

i finished 




2149* 








2150* 

Read 

Corfos disk processing 





2151* 





61B8 



2152* LDdsk2 

bsr.s 

LDwait 

iWait for the line to turn 

1E29 

0001 


2153* 


Bove.b 

l(al},d7 

.Fetch result code 

10C7 



2154* 


■oee.b 

d7,(a0)+ 

.Store first byte 




2155* 





0829 

0007 

0003 

2156* LDdsk3 

btst 

•7.3(al) 

.Test controller status 

66F8 



2157* 


bon.s 

LOdskS 

.Wait until controller ready 

0829 

0006 

0003 

2158* 


btst 

•6,3(al) 

;Test bus direction 

6706 



2159* 


boff.s 

LDdskO 

.Finished if "host to controller" 

10E9 

0081 


2160* 


Boee. b 

l(al),(a0)f 

.Store neit byte 

60EA 



2161* 


bras 

LDdsk3 

;Co get any sore 




2162* 





4CDF 

030F 


2163* LDdsk9 

BoeeB. 

(sp)4,d0-d3/a0- 

al;Restore registers 




2164* 

— 

Boee.b 

d7,CPdiskRC.w 

iSave current disk return code 

4887 



2165* 


eit w 

d7 

iSet return condition code 

4E7S 



2166* 


rts 


iRetnrn 




2167* 
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2169* 

, 








2170* 

; LOsync -- Synchroniie with Corrus disk contcoilei 





2171* 

, 








2172* 


Enter . 

D6.B - slot nuaber 





2173* 









2174* 


Eiit. 

D7.V - 0 = no tiaeout lEG), -1 = tiaeout (KE) 





2175* 









2176* 


All other registers are preserved. 





2177* 





1082 

48£7 

8040 


2178* 

LDsfnc 

Boves. i 

d0/al,-(sp) 

save registers 

i08i 

ilOO 

F5C0 


2179* 


bst 

SlotAdr 

get slot address 

1088 

3E3C 

07D0 


2180* 


■ove.w 

12000, d7 

set tiaeout counter 





2181* 





108E 

137C 

OOFF 

0001 

2182* 

LDsyncl 

Bove.h 

•$FF,l(al) 

send invalid coaaand to controller 

1094 

303C 

0400 


2183* 


Bove .w 

11024, dO 

wait about 1 as 

1098 

51C8 

FFFE 


2184* 

LDsync2 

dbra 

dO,LOsync2 

* 

109C 

0829 

0006 

0003 

2185* 


btst 

I6,3(al) 

test bos direction 

10A2 

6606 



2186* 


bon.s 

LDsync3 

go on if "controller to host" 

10A4 

:1CF 

FFE8 


2187* 


dbra 

d7,LDsyncl 

send invalid coaaand again 

10A8 

6 0 0C 



2188* 


bra . s 

LOsyncS 

set tiaeout error and return 





2189* 





ICAA 

082? 

0007 

0003 

2190* 

uDsync3 

btst 

•7,3(al) 

test controller status 

lOBO 

6706 



2191* 


boft . s 

LDsynci 

go on if controller ready 

10B2 

51CF 

FFF6 


2192* 


dbra 

d7,LDsync3 

check controller status again 





2193* 





iOBi 

7EFF 



2194* 

LDsyncS 

Boveq 

i-l,d7 

indicate controller tiaeout 

10B8 

600A 



2195* 


bra . s 

LOsync9 

return 





2196* 





lOBA 

0C29 

008F 

0001 

2197* 

LDsynci 

cBpi b 

l$8F,i(ai) 

did controller respond with error* 

lOCC 

66CC 



2198* 


bne. s 

LOsyncl 

no, send invalid coaaand again 

10C2 

7E00 



2199* 


Boveq 

t0,d7 

indicate no controller tiaeout 





2200* 





i!lC4 

4CDF 

0201 


220 1* 

LOsync? 

BOVeB. 1 

(sp)^,d0/al 

restore registers 

10C8 

4A47 



2202* 


tst.w 

d7 

set return condition code 

IQCA 

4E75 



2203* 


rts 


return 





2204* 









2205* 
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2207* 


inclode 

•CC.PROM.OD' 


iOHNlNET disk driver 


2208* 








2209* 

, File: 

CC. PROM. OD. TEXT 





2210* 

i Date. 

29-Jun-82 





2211* 








2212* 

, 







2213* 

, OMNINET disk 

driver data area 

equates 


2214* 

, 






00000000 

2Z15* 

OCtd 

EQU 

0 

byte 

- 

disk coaaand offset 

OOOOOOOi 

2216* 

DCdiT 

EQU 

l+OCid 

byte 

- 

offset for drive nuaber 

00000002 

2217* 

DCbiklo 

EQU 

2^DCad 

byte 

. 

LSB of block nuaber to read or write 

00000003 

2216* 

DCblkhi 

EQU 

3^0Cid 

byte 

- 

MSB 

00000004 

1219* 

DClen 

EQU 

4fOCBd 

word 

- 

length oc request (in bytes) 


2220* 

, 







2221* 

; 

result 

vector and heade 

used for ail setuprecv coaaands 


2222* 

, 






00000006 

2223* 

RHdr 

EQU 

6 




00000006 

2224* 

RHpktRC 

EQU 

OtRHdt 

byte 

- 

return code fioa transporter 

00000007 

2225* 

RHsor 

EQU 

URHdr 

byte 

- 

the source of the message 

00000008 

2226* 

RHpktLN 

EQU 

2tRHdr 

word 

- 

total length oi data portion of packet 

OOOOOOOA 

2227* 

EHdskLN 

EQU 

4fRKdr 

word 

- 

length of info returned froa drive 

OOOOOOOC 

2226* 

RHdskRC 

EQU 

6^RHdr 

byte 

- 

return code iroa drive 


2229* 








2230* 


resui t 

vector and heade 

for ail sendasg coaaands 


2231* 







OOOOOOOE 

2232* 

SHdr 

EQU 

14 




OOOOOOOE 

2233* 

SHpktRC 

EQU 

O^SKdt 

byte 

- 

return code froa transporter 


2234* 

; 

EQU 

USHdr 

byte 

- 

unused 


2235* 

i 

EQU 

2^SHdt 

word 

- 

unused 

00000012 

2236* 

SHtoLN 

EQU 

4>SHdr 

word 

- 

nuaber of bytes to send to drive 

00000014 

2237* 

SHIbLN 

EQU 

6fSHdr 

word 

- 

number of bytes expected froa drive 


2238* 







00000016 

2239* 

GData 

EQU 

22 

word 

- 

area to receive “GO" into 


2240* 

j 







2241* 

, 

area used for construct 

ing Transporter coaaands 


2242* 







00000018 

2243* 

TCid 

EQU 

24. 




00000018 

2244* 

TCop 

EQU 

OfTCmd 

byte 

- 

op code 

00000019 

2245* 

TCrADhi 

EQU 

UTCBd 

byte 

- 

result address HI 

OOOOOOIA 

2246* 

TCtADIo 

EQU 

ZiTCmd 

word 

- 

result address MED, LO 

OOOOOOIC 

2247* 

TCsock 

EQU 

4fTCad 

byte 

- 

socket nuaber 

OOOOOOID 

2248* 

TCdADhi 

EQU 

5+TCid 

byte 

- 

data buffer address HI 

QOOOOOIE 

2249* 

TCdADlo 

EQU 

64-TCBd 

word 

- 

data buffer address MED, LO 

00000020 

2250* 

TCdtaLN 

EQU 

8fTCid 

word 

- 

data length 

00000022 

' 2251* 

TChdrLN 

EQU 

lO^TCad 

byte 

- 

header length 

00000023 

2252* 

TCdest 

EQU 

1 1 iTCad 

byte 

- 

destination host nuaber 


2253* 







00000024 

2254* 

ODdw 

EQU 

36 

lint 

- 

temporary buffer (for 3 byte nabrs) 

0000002S 

2255* 

ODdwhi 

EQU 

37 

byte 

- 

temporary HI 

00000026 

2256* 

ODdwlo 

EQU 

38 

word 

- 

temporary HID, LO 

00000028 

2257* 

ODwcAD 

EQU 

40 

lint 

- 

to save buffer address for CVrites 

0000002C 

2258* 

ODfalid 

EQU 

44 

word 

- 

for marking buffer as valid 


2259* 
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2261* , 
2262* , 
2263* , 


00030FA1 

2264* 

SUAdr 

EQU 

$30FA1 

address of Transporter register 

Q0030F7F 

2265* 

RdfAdr 

EQU 

$30F7F 

address of VIA register A, used for Oaninel ready 

OOOOFFFE 

2266* 

TOintvi 

EQU 

5FFFE 

tiaeont interval 


2267* 

, 





2268* 

, Transporter 

Return Codes 


2269* 

, 




SC08Q0FF 

2270* 

Va i t i ng 

EQU 

$FF 


OOOOQOFE 

2271* 

CadAcpt 

EQU 

JFE 


OOOOOOCO 

2272* 

Ecboed 

EQU 

$C0 

echo couand was successful 


2273* 





soooooeo 

2274* 

Caee’Jp 

EQU 

680 

aborted a send coaiand after MaiRetries tries 

000CO081 

2275* 

TooLong 

EQU 

$81 

last aessage sent was too long for the receiver 

00000082 

2276* 

NoSockt 

EQU 

$82 

sent to an unititiaiixed socket 

0000CO83 

2277* 

HdrEtr 

EQU 

$83 

sender's header length did not Batch receiver's 

GG00C084 

2278* 

BadSock 

EQU 

$84 

illegal socket nuaber 

00000085 

2279* 

Inose 

EQU 

$85 

tried to set up a receive on an active socket 

00000086 

2280* 

BadDest 

EQU 

$86 

sent to an illegal host nuaber 


2281* 





00000C9G 

2282* 

NoTrans 

EQU 

$90 

could not strobe cad addr to Transporter 

00000091 

2283* 

TiieOut 

EQU 

$91 

tiaed out waiting for an Oaninet event 

00000092 

2284* 

NoEofr 

EQU 

$92 

tried a CRRead without a valid write buffer 


2285* 

, 





2286* 

, Transporter Opcodes 



2287* 

, 




OOOCOOFO 

2288* 

RecfOp 

EQU 

$F0 

SETUPRECV opcode 

00000040 

2289* 

SendOp 

EQU 

$40 

SENDHSC opcode 

00000020 

2290* 

InitOp 

EQU 

$20 

INIT opcode 

00000010 

2291* 

EndOp 

EQU 

$10 

ENORECV opcode 

00000008 

2292* 

DebOp 

EQU 

$08 

PEEX/FOKE opcode 

00000002 

2293* 

EchoOp 

EQU 

$02 

CCHOCHD opcode 

OOOOOCOl 

2294* 

VhoOp 

EQU 

$01 

VHOAKI opcode 


2295* 





OOOOOGAG 

2296* 

RestSkt 

EQU 

$A0 

dest. socket for REST packet 

OOOOOGEG 

2297* 

CnstSkt 

EQU 

$B0 

socket for Constellation protocol 


22 98' 
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iOEi 

48E7 

8060 


2319* ODcoand 

aofea. 1 

al-a2/d0,-(sp) 

;save registers 

IDEA 

227C 

0008 

DFDO 

2320* 

aove . 1 

tCPoanibf ,al 

,get pointer to Data Area 

lOFO 

4869 

0006 


2321* 

pea 

RHdr(al) 

,get pointer to tesuli record 

10F4 

235F 

0018 


2322* 

BOfe . I 

(5p)«JCop(al> 

;set result record pointer 

iOF8 

1340 

0018 


2323* 

aove . b 

d0,TCop(al) 

,set Transporter coBBand 

lOFC 

1341 

QOIC 


2324* 

aove.b 

dl,TCsock(al) 

,set destination host noaber (echo; 

1100 

137C 

OOFF 

0006 

2325* 

BO re . b 

8Vamng,RHpktRC(Al) 

,set Transporter waiting ilag 

110& 

45E9 

0018 


2326* 

lea 

TCad(Al),A2 

,get coBBand address 

IlOA 

6100 

OOEE 


2327* 

bst 

Strobit 

, strobe coaaand address to Transpor 

IlOE 

661A 



2328* 

bne.s 

ODcad9 

iTransporter not responding 

1110 

303C 

FFFE 


2329* 

Bove.w 

OTOintfl.DO 

iget tiaeout inter?al 





2330* 




1114 

0C29 

OOFF 

0006 

2331* ODcidl 

cap i . b 

IWaiting,RHpktRC(Al> 

ihas Transporter responded’ 

lllA 

660A 



2332* 

bne.s 

ODcBd2 

,yes, ready to return 

me 

51C8 

FFF6 


2333* 

dbra 

DC fOOcadl 

.tiaeout yet? 

1120 

137C 

0091 

0006 

2334* 

Bove b 

ITiaeOut,RHpktRC(Al) 

;yes, set tiaeout error and leturn 





2335* 




112i 

1E29 

0006 


2336* ODcadI 

Bove .5 

RKpktRC(Al),d7 

iget Transporter return code 





2337* 




112A 

4CQF 

0601 


2338* ODcad9 

Bovea. 1 

( sp)^,al-a2/d0 

, restore registers 





2339* ; 

Bove.b 

d? iCPoaniRC.w 

;save current OMNINET return code 

112E 

4E75 



2340* 

rts 


; return 


2341* 
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2343* 

2344* 

2345* 

2346* 

2347* 

2348* 

2349* 

2350* 

2351* 

2352* 

2353* 

2354* 

2355* 

2356* 

2357* 


OOblklO > Reid or write in OMNINET disk serter block subroutine 

Enter: AO.L - Buffet iddress 

DO.V - Block Doiber 
D1 V - Drive nuaber 

05. V - Reid <$32) or Vnte ($33) coaaind 
D6.V - Oestinition host nmber * 256 

Eiit: AO.L - Neit free locition in buffer 

DO.V - Updited block nuaber 
07. V - lORESULT (OHNINETf disk controller stilus) 

All other registers ire preserved. 


ii30 

48E7 

E360 


2358* ODblklO 

aovea. 1 

d0-d2/il-i2,-( sp) ,Sive registers 

1134 

227C 

0008 

DFDO 

2359* 

aove . I 

ICFoanibf ,il 

,Ai points to the start of the Oiti Arei 

113A 

426? 

002C 


2360* 

clr .w 

OOvilid(Al) 

.buffet vilid = False... see ODdsklO 

113E 

1345 

00 00 


236 1* 

aove.b 

05,DCad(Al) 

.Stuff disk coaaand - read or write 

1142 

1341 

OGOl 


2362* 

aove.b 

01,DCOrv(Al) 

.stuff drive nuaber 

1146 

1340 

0002 


2363* 

aove.b 

00,DCElkLo(Al) 

.lo order byte of block nuaber 

114A 

E048 



2364* 

Isr .w 

•8,00 


114C 

1340 

0003 


2365* 

aove.b 

DO.OCBlkHi(Al) 

,hi order byte of block nuaber 

1150 

3 37C 

0200 

0004 

2366* 

aove .w 

l512,OCLen(Ai) 

.set length to 512 . . 

1156 

0C45 

0033 


2367* 

capi .w 

IDskVrit.DS 

.Are we reading or writing? 

115A 

6614 



2368* 

bne . s 

ODblk2 

.Reading 





2369* 




115C 

3 3 7C 

0204 

0012 

2370* OOblkl 

aove .w 

•516,SHtoLN(Al) 

.nuaber of bytes to send to drive 

1162 

4269 

0014 


237 1* 

clr .w 

SKfaLN(Al) 

.nuaber of bytes eipected back 

1166 

2348 

0028 


2372* 

aove. 1 

AO,GOwrAO(Al) 

iSive address of REST of data 

116A 

6100 

OlEA 


2373* 

bst 

LongCads 

.Writing 

11 6E 

6010 



2374* 

bri. s 

OOblk3 

.return 





2375* 




1170 

3 37C 

0004 

0012 

2376* ODblk2 

aove .w 

04,SKtoLN(Al) 

.nuaber of bytes to send to drive 

1176 

337C 

0200 

0014 

2377* 

aove .w 

•S12,SHfaLN(Al) 

.nuaber of bytes eipected back 

117C 

6100 

024C 


2378* 

bsr 

ShortCads 






2379* 




lies 

4CDF 

060 7 


2380* ODblk3 

aovea. 1 

(sp)f,d0-d2/il- 

a2, Restore registers 

1184 

DOFC 

0200 


2381* 

iddt .w 

•512, iO 

.Update buffet pointer 

1188 

0640 

0001 


2382* 

iddi .w 

• l,dO 

^Update disk block nuaber 





2383* , 

aove b 

d7,CPdiskRC.w 

.Save current disk return code 

118C 

4887 



2384* 

eit .w 

d7 

;Set return condition code 

118E 

4E75 



2385* 

rts 


.Return 


2386* 
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238B* 

238?* 

2390* 

2391* 

2392* 

2393* 

2394* 

2395* 

2396* 

2397* 

2398* 

2399* 


ODdUklO - Reed fcoi/wiite to Corvus disk 

Enter: AO.L > Batter address 

D2.W - Count 

DS.V - Read ($32) or Write (633) couand 
06. V - Destination host nuaber * 256 

Eiit; 07. V - I0RE5ULT (OMNINET/disk controller status) 

All other registers are presereed. 


1190 

48E7 

EOEO 


2400* 

OOdsklQ 

BO fen. 1 

d0-d2/a0-a2,-(sp) ,Sate registers 

1194 

227C 

0008 

DFDO 

2401* 


■ofe.l 

tCPoanibt ,al 

,A1 points to the start ot the Data Aiea 

119A 

0C45 

0033 


2402* 


capi .w 

IDskVrit.05 

,do we want to read or write 

119E 

6616 



2403* 


bne .5 

ODdsk2 

, read 





2404* 





llAO 

3342 

0012 


2405* 

ODdskl 

aowe.vf 

D2.SHtoLN(Al> 


11A4 

2358 

0000 


2406* 


BOfe. 1 

(A0)>,DCad(Al) 

,aofe first four bjrtes of send data to DiskCad 

llAI 

2348 

0028 


2407* 


Bove. 1 

AO,ODwrAO(Al) 

.save address of REST of data 

llAC 

4247 



2408* 


clr.w 

D7 

;force successful lOResult 

llAE 

337C 

FFFF 

002C 

2409* 


Bove.w 

•-l,ODfalid(Al) 

,aark send buffer as valid.. 

11B4 

603C 



2410* 


bras 

ODdsk9 

, return 





2411* 





UB6 

0C69 

FFFF 

002C 

2412* 

ODdsk2 

capi .w 

t-l,QDfalid(Al) 

, is send buffer valid?? 

IIBC 

6706 



2413* 


beq.s 

ODdsk3 

ifes, go on 

ilBE 

3E3C 

0092 


2414* 


BOfe.w 

INoBufr.O? 

;set lOresult to "no buffer" error 

11C2 

602C 



2415* 


bra s 

ODdsk6 

, return 





2416* 





11C4 

4269 

002C 


2417* 

ODdsk3 

clr.w 

ODvalidtAl) 

iaark send buffer as invalid 

lies 

3342 

0014 


2418* 


BOfe.w 

OZ.SHtalNiAl) 


IICC 

0469 

0001 

0014 

2419* 


subi .w 

tl.SHfaLN(Ai) 

.subtract one tor the return code 

1102 

OlFC 

0000 

0001 

2420* 


adda.l 

11, AO 

iinc buffer pointer past return code 

llDi 

0C69 

0004 

0012 

2421* 


capi .w 

•4,SHtoLN(Al) 

late we doing a longcad? 

llOE 

6206 



2422* 


bhi .s' 

ODdsk4 

.yes 

llEO 

6100 

01E8 


2423* 


bsr 

Short Cads 

;no 

11E4 

6004 



2424* 


bra.s 

OOdsk5 


11E6 

6100 

016E 


2425* 

ODdsk4 

bsr 

LongCads 


llEA 

91FC 

0000 

0001 

2426* 

ODdsk5 

suba.l 

tl.AO 

,dec buffer pointer past return code 


2427* 
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UFO 


2429* 

0Ddsk6 







2430* 


. the 

retacn code »ast 

be loaded eipiicitly since 

it coses froi 



2431* 


, the 

header portion of 

the results packet . . . . 




1432* 


i 




UFO 

1087 

2433* 


love.b 

D7.(A0) 

(Staff return code in read 

buffet 



2434* 




i 


11F2 

4CDF 0707 

2435* 

0Ddsk9 

BOTei. 

I (sp)f,d0-d2/t0- 

a2iRestore registers 




2436* 

, — 

■ove.b 

d7,CFdiskRC.v 

iSave current disk return 

code 

1 1 F6 

4887 

2437* 


eit .w 

d7 

iSet return condition code 


11 F8 

4E75 

2438* 


Its 


;Return 




2439* 
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2441* 

2442* 

2443* 

2444* 

2445* 

2446* 

2447* 

2448* 

2449* 

2450* 

2451* 

2452* 


Strobit -- Strobe couand address to Transporter 
Enter; kl = couand address 
Eiit D7 s Transporter strobe status 

EQ : successful 

ME = Transporter not responding 
Ml other registers are preserted 


UFA 

48E7 

COOO 


2453* 

IIFE 

7E00 



2454* 

1200 

200A 



2455* 

1202 

E198 



2456* 





2457* 

1204 

611A 



2458* 

1206 

670C 



2459* 

1208 

6116 



2460* 

120A 

6708 



2461* 

120C 

6112 



2462* 

120E 

6704 



2463* 

1210 

6116 



2464* 

1212 

6604 



2465* 





2466* 

1214 

3E3C 

0090 


2467* 





2468* 

1218 

4CDF 

0003 


2469* 

121C 

4A47 



2470* 

121E 

4E75 



2471* 





2472* 

1220 

E198 



2473* 

1222 

13C0 

0003 

OFAl 

2474* 

1228 

323C 

FFFE 


2475* 

122C 

0839 

0000 

0003 

2476* 

1232 

0F7F 




1234 

6600 

0006 


2477* 

1238 

51C9 

FFF2 


2478* 

123C 

4E75 



2479* 


Strobit 

■oven. 1 

D0<01,-(sp) 


BOV eg 

t0(d7 


Bove. 1 

AZ,D0 


rol . 1 

88 (DO 


bst s 

SBstrob 


beq.s 

SBerr 


bsr s 

SBstrob 


beg. s 

SBerr 


bsr s 

SBstrob 


beg.s 

SBerr 


bsr s 

SBwait 


bne. s 

SBeiit 

SBerr 

Bove.w 

8NoTranS(d7 

SBeiit 

BoveB. 1 

(sp)i(OO-Dl 


tst.w 

d7 


rts 


SBstrob 

rol . 1 

88(D0 


Bove.b 

DO(StrAdr.L 

SBwait 

Bove.w 

ITOintvl.Dl 

SBVl 

btst 

tO.RdyAdr.L 


bon SBVeiit 

dbra Di.SBVi 

SBVeiit rts 


,save registers 

.assune no Transporter error 

,get conmand address 

iBove couand address to nsb 

tStrobe address HI 

(Strobe address MED 

(Strobe address 10 

;wait for Transporter ready 

;no transporter . . . 

;restore registers 

;set return condition code 

i return 

;shift address byte to Isb 
istrobe address 
,get timeout interval 
iis transporter ready? 

iyes, return 

:repeat until transporter ready 
iretorn 


2480* 
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2482* , 

2483* , SetGo -- set up a receive for the 'CO' packet 
2484* . 


123E 

337C 

0002 0020 

2485* SetCo 

aove.w 

«2,TCdtaLN(Al) 

,2 bytes of data 

1244 

42 2 9 

002 2 

2486* 

clt .b 

TChdrLNlAU 

:no header 

1248 

4869 

0016 

2487* 

pea 

GData(Al) 

>get address of data area 


2488* , ■ofe.l (SP)f .ODdw(Al) 

, 248?* , aove.b ODdwhKAl ) .TCdAOhitAi ) iload data buffer address 

2490*, Bove.w ODdwio(Al) ,TCdADIo(Ai) ;* 


124C 235F OOlC 2491* aove.l (SP)+,TCdADhi-l{Al) ;saae as above -- TCsock destroyed 

1250 6010 2492* bras SetGoi 

2493* i 

2494* i SetRecv •- set up a receive for the disk results and read data 
2495* , returns result in D9 

2496* , 

1252 2497* SetRecv 






2498* , — - 

■ove . I 

AO,ODdw(Al) 

iload data buffer address 





2499* , 

aove.b 

UOdwhi(Al),TCdADhi(Al) 

;* 





2500* , 

Bove.w 

OOdwio(Al),TCdA01o(Al) 

, » 

1252 

2348 

00 1C 


250 1* 

aove . i 

A0,TCdADhi>i(Al) 

,saae as above -- TCsock destroyed 

1256 

3369 

0014 

0020 

2502* 

aove .w 

SHfaLN(Al),TCdtaLN(Al> 


125C 

137C 

0003 

0022 

2503* 

aove .b 

l3,TChdrLN(Al) 

;disk results have a hdr ien of 3 





2504* 




1262 

137C 

OOFF 

0006 

2505* SetGoi 

aove.b 

IVaiting.RHpktRCfAl) 

iset result to FF to see it change 





2506* 








2507* 



, prepare the coaaand vector 

1268 

4869 

0006 


2506* 

pea 

RKdr(Al) 

;load result vector address 





2509* . 

aove. I 

(SP)i,OOdw(All 

;* 





2510* ; — r 

aove.b 

ODdwhi(Al),TCiADhi(Al) 

, » 





2511* , 

aove.w 

ODdwio(Al),TCrA01o(Al) 

; * 

126C 

235F 

0018 


2512* 

aove. 1 

(SF)^JCrAOhi-KAl) 

isaae as above -- TCop destroyed 

1270 

137C 

GOfO 

0018 

2513* 

aove.b 

tRecvOp,TCop(Al ) 

jset up a receive 

1276 

137C 

OOBO 

OOlC 

2514* 

aove.b 

fCnstSkt,TCsoek(Al) 

; on socket BO 





2515* 




127C 

45E9 

0018 


2516* 

lea 

TCad(Al),A2 

;get coaaand address 

1260 

6100 

FF78 


2517* 

bsr 

Strobit 

istrobe coaaand address to Transporter 

1284 

6600 

00C4 


2518* 

bne 

SCert2 

iTransporter not responding 

1288 

303C 

FFFE 


2519* 

aove .vf 

ITOintvl,DO 

ifor tiae out 





2520* 




128C 

0C29 

OOFF 

0006 

2521* SCIO 

capi b 

•Waiting, RHpktRC(Al) 


1292 

6608 



2522* 

bne. s 

SC12 

,wait till result changes 

1294 

51C8 

FFF6 


2523* 

dbra 

DO, SCIO 


1298 

6000 

0OB4 


2524* 

bra 

SCerr3 

itiaeout error 





2525* 




129C 

1029 

0006 


2526* SC12 

aove.b 

RHpktRCfAD.dO 

;get Transporter return code 

12A0 

OCOO 

OOFE 


2527* 

capi .b 

ICadAcpt.dO 

;was coaaand accepted* 

12A4 

6D0G 

009E 


2528* 

bit 

SCerrl 

,no, fatal error 

12A8 

4240 



2529* 

clr .w 

DO 

iindicate success 

12AA 

6000 

00A6 


2530* 

bra 

SCeiit 

ireturn 


2531* 
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2533* . 

2534* , SndRest -- send the rest ol the data (from long oouand) to the disk server 
2535* , lesait of call is in DO, 0 = success 

2534* , 


IZhE 

1349 

0029 

OOID 

2537* 

SndRest 

Bove.b 

QOwrADf 1( A1 i .TCdADhi ( A1 ) , load data buffer address 

12B4 

3349 

30 2A 

OOIE 

2538* 


Bove .w 

ODwcADa-2(Al),TCdADio<Al) 

i* 

IZBA 

137C 

GOAO 

OOlC 

2539* 


move . b 

•RestSkt.TCSockiAl) 


IZCO 

0449 

0004 

0012 

2540* 


subi .w 

•4,SHtoLN(Ai) 


12C4 

4C04 



2541* 


bge.s 

SCZO 


1ZC8 

4269 

0012 


2542* 


cii .w 

SHtolN(Al) 

.result was negative, Bake it sero 

IZCC 

3 349 

0012 

0020 

2543* 

SC20 

Bove .w 

SHtoLK(Al),TCdtaLNiAn 

,send length - 4 bytes 

IZDZ 

4229 

0021 


2544* 


cli .b 

TChdiLN(Al) 

,no header for rest packets 

1ZD4 

60 32 



2545* 


bra. s 

SC40 

.send It 





2546* 

, 








2547* 

; SndCads -- send a disk couaad to the 

disk server 





2548* 


result or call is in DO, 0 

= success 





2549* 





iZDO 

4849 

0000 


2550* 

SndCoids 

pea 

OCBd(Al) 

.data IS the Disk coaicand 





255 1* 

, 

Bove . 1 

tSP)t,aOdw(Al« 






2552* 

, 

Bove . b 

GDdwhi(Al),TCdADhiai/ 

, load data buffer address 





2553* 

, 

Bove .w 

ODdwlo(Al),TCdA01o(A;i 

, * 

12 DC 

235F 

GOIC 


2554* 


Bove i 

(SF)»,TCdADhi-l(Ai> 

.saae as above -- TCscck destroyed 

UES 

137C 

OOBC 

OOiC 

2555* 


Bove (> 

8CnstSkt,TCsock(Ali 


IZE4 

QC49 

0004 

0012 

2536* 


CBpi w 

•4,SKtoLN(Al) 

,are we sending less than 4 bytes 

iZEC 

4CQ8 



2557* 


bge.s 

SC30 

,no 

IZEE 

3369 

0012 

0020 

2558* 


Bore .w 

SHtoLN(Al),TCdtaLN(Al) 

.less 

12F4 

6004 



2559* 


bra .s 

SC32 


1ZF4 

337C 

0004 

0020 

2540* 

SC30 

Bore.vr 

l4,TCdtaLN(Al) 

.disk coBBand is 4 bytes long 

IZFC 

137C 

0004 

0022 

254 1* 

SC32 

Bore.b 

t4,TChdiLH(AU 

.send header is 4 bytes 

1302 

EOSE 



2562* 


ror .w 

•8,d4 

;set destination host nuBber 

1304 

1344 

0023 


2563* 


Bove .b 

d4,TCdest(Al) 

,* 

1308 

E15E 



2564* 


col .w 

16, d4 

,* 





2545* 





130A 

137C 

OOFF 

OOOE 

2544* 

SC40 

Bore. b 

IVaiting,SKpktRC(Al) 

iset result to FF to see it change 

1310 

4849 

OOOE 


2567* 


pea 

SHdr(Al) 

.load result vector address 





2548* 

; 

Bore. 1 

(SPU,ODdw(An 

,* 





2549* 

, 

Bore.b 

ODdwhi(Al),TCtADhi(Al) 

,* 





2570* 

i 

Bore .w 

uDdwlo(An,TCtADlo(Al> 

1 1 

1314 

235F 

0018 


2571* 


Bore. 1 

(SP)^,TCrADhi-ltAl> 

,saae as above -- TCop destroyed 

1318 

137C 

0040 

0018 

2572* 


Bore.b 

ISendOp.TCopfAl) 

.sendasg opcode 

131E 

45E9 

0018 


2573* 

SC50 

lea 

TCBd(Al),A2 

.get coBBand address 

1322 

4100 

FE04 


2574* 


bsr 

Stcobit 

.strobe coBmand address to Transporter 

1324 

4422 



2575* 


bne s 

SCetr2 

;Transporter not responding 


2576* 
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1328 

303C 

PFFE 

2578* 


Bore w 

OTOi&trl.OQ 

,for tiBe out 


132C 

0C2? 

OOFF 

OOOE 2579* 

SC 60 

cBpi .b 

IVaiting,SHpfctRC(Al) 



1332 

6606 


2580* 


bne.s 

SC70 

,wait till result 

changes 

1334 

51C6 

FFF6 

2581 * 


dbu 

DO,SC60 



i338 

6014 


2582* 


bta.s 

SCetr3 

;tiaeont error 





2583* 






133A 

4240 


2584* 

SC70 

cic w 

DO 

(indicate success 


133C 

4A29 

OOOE 

2585* 


tst.b 

SKpktRC(Al) 

,did it work? 


1340 

6D02 


2586* 


bll s 

SCerri 

;no, fatal error 


1342 

6C0E 


2587* 


bra . s 

SCetii 

i return 





2586* 






1344 

1029 

OOOE 

2589* 

SCeirl 

tore . b 

SHpktRC(Ai),O0 

,get transporter i 

error code 

1348 

6008 


2590* 


bras 

SCeiit 

; return 


134A 

i007 


2591 * 

SCe[r2 

Bore.b 

D7.00 

,no transporter 


134C 

6 004 


2592* 


bra.s 

SCeiit 

, return 


134E 

103C 

G091 

2593* 

SCet r3 

tore b 

ITiieOat.DO 

, tiBe out , . 





2594* 






1352 

4B80 


2595* 

aCeii t 

eit w 

DO 

;aake return code 

a word 

1354 

4E75 


2596* 


rts 


iteturn 





2597* 
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1356 




2599* 

LongCads 







2600* 

i 







2601* 

, 1. set op a 1 

receive for the CO 

aessage 





2602* 

, 



1356 

6100 

FEE6 


2603* 

bst 

SetGo 

; 

135X 

6D62 



2604* 

blt.s 

LcadEtt 

,if DO < 0 then fatal ORV error 





2605* 








2606* 

, 2. send disk 

coaaand 






2607* 

, 



135C 

6100 

FF7A 


2608* 

bsr 

SndCads 

,doi ( 

13611 

605C 



2609* 

bits 

LcadEri 

,if DO { 0 then fatal ORV error 





2610* 

; 







2611* 

, 3. wait to icceife GO 






2612* 

i 



1362 

1029 

0006 


2613* 

Lcadl lore.b 

RHpktRClAD.dO 

,get Transporter return code 

1366 

OCOO. 

OOFE 


2614* 

cmpi .b 

ICadAcpt ,d0 

,has return code changed? 

136A 

47P6 



2615* 

beq.s 

Lcadl 

,no, wait soae acre 

136C 

4AQ0 



2616* 

tst.b 

DO 

.successful receive? 

136E 

604E 



2617* 

bits 

LcadErt 

,no, set error return 





2618* 

, 







2619* 

, 4. validate CO packet 






2620* 

, 



1370 

0829 

0007 

0016 

2621* 

Lead 3 btst 

l7.Cdata(Al) 


1376 

66DE 



2622* 

bon.s 

LongCads 

idisk server restart 

1378 

0C69 

474F 

0016 

2623* 

capi w 

l'CQ',Gdata(Al) 


137E 

660A 



2624* 

bne.s 

Lcad4 


1380 

1029 

0023 


2625* 

aove.b 

TCdest(Al),D0 


1384 

B029 

0007 


2626* 

cap.b 

RH$ot(Al),D0 

;did response coae from the right place 

1388 

6708 



2627* 

beq.s 

Lcad5 






2628* 




138A 

6100 

FEB2 


2629* 

Lcad4 bsr 

SetCo 

.set up tor GO receive again 

USE 

602E 



2630* 

bits 

LcadEii 


1370 

60D0 



2631* 

bras 

Lcadl 

, 





2632* 
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2634» 

, 







2635* 

, 5 set ap teceife tor results 





2636* 





1392 

6100 

FEBE 

2637* 

LcidS 

bsr 

SetRecr 

, 

1396 

6026 


2638* 


bits 

LcadErr 

,if DO \ 0 then fatal DRV error 




2639* 

; 







2640* 

, 6 send REST 






2641* 

, 




1398 

6100 

FF14 

2642* 


bsr 

SndRest 

, 

13 9C 

6020 


264 3* 


blt.s 

LcadErr : 

, 




2644* 

, 







2645* 

, 7 . wa 

t for 

results 





2646* 

, 




139E 

1029 

0006 

2647* 

Lc>d6 

■ore b 

RHpktRC(Al),dO 

,get Transporter return code 

13A2 

OCOC 

OOFE 

2648* 


capi b 

•CadAcpt.dO 

,has return code changed’ 

1 3A6 

67F6 


2649* 


beq . s 

Lcad6 

,no, wait soae aore 

13A8 

4A00 


2650* 


tst . b 

DO 

.successful receire? 

13AA 

6012 


2651 * 


bit s 

LcadErr 

,no, set error return 




2652* 








2653* 

, 8. va 

idate 

results 





2654* 

, 




13 AC 

1029 

0023 

2655* 

Lcid7 

aore . b 

TCdest(Al),00 


13BC 

EC29 

0007 

2656* 


cap.b 

RKsot(Al),00 

.did response coae froa the right place' 

13B4 

670C 


2657* 


beq. 5 

LcadOK 

.yes 

1336 

6130 

FE9A 

2658* 


bsr 

SetRecr 

.No. set up receire again. . . . 

13BA 

6002 


2659* 


bits 

LcadErr 

.If DO < 0 then fatal DRV error 

13BC 

6304 


2660* 


bras 

Lead 5 

.go back and wai t again. . . 




2661* 





13BE 

lEOO 


2662* 

LcadErt 

■ore.b 

D0,D7 

.get error return code 

13 CO 

6004 


2663* 


bra s 

LcadEi 

. return 




2664* 





13C2 

1E29 

OOOC 

2665* 

LcadOK 

aore b 

RHdskRCtAi/,07 

.get disk server return code 




2666* 





13C6 

4887 


2667* 

LcidEi 

eit w 

07 

.aake return code a word 

.3C8 

4E75 


2668* 


rts 


.return for ShortCads or LongCads 




2669* 
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13CA 


13CA 

13CE 


13D0 

13D4 


13Di 

13DC 

13E0 

13E2 

13Ei 

13E8 

13EA 

13EC 


13EE 

13F1 

UF8 

UFA 

13FE 

1400 
1404 

1401 
140A 
HOC 


2471* 5hortC«ds 
2472* . 

2473* , 1. set up a receife ior the results 
2474* , 


4100 

FE84 


2475* 


bsr 

SetRecv 

, 

4DEE 



2474* 


blt.s 

LcidCrt 

,if DO ( 0 then iatal DRV error 




2477* 

; 







2478* 

. 2. 

send disk 

coBBand to disk 

server 




2479* 

, 




4100 

FF04 


2480* 


bsr 

SndCBds 

,doit 

4DEB 



2481* 


blt.s 

LcBdErr 

, It DO ( 0 then taiai DRV error 




2482* 








2483* 

i 3. 

wait to receive results 





2484* 





2E3C 

0004 

0000 

2485* 


Bove. 1 

•$40000, d7 

,for tiBe out 

1029 

0004 


2484* 

Scid2 

Bove b 

RHpktRC(Al),d0 

,get Transporter return code 

4C0C 



2487* 


bge.s 

ScBd3 

.successful receive, go on 

OCOO 

OOFE 


2488* 


cmpi .b 

•CBdAept.dO 

,has return code changed? 

44D4 



2489* 


bne.s 

LcBdEtr 

,fes, set error return 

5387 



2490* 


sttbq. 1 

•l,d7 

.tiae out? 

44F0 



2491* 


bne.s 

ScBd2 

;no, wait soae bo re 

40D0 



2492* 


bras 

LcBdErt 

,set error return 




2493* 

, 







2494* 

. 4. 

validate i 

results 





2495* 





IE29 

0G07 


2494* 

Scid3 

move.b 

RHsor(Al).D7 

,get source of response 

0C29 

OOFF 

0023 

2497* 


cBpi .b 

t$FF,TCdest(al> 

; is this a broadcast? 

4404 



2498* 


bne.s 

ScBd4 

;no, go on 

1347 

OOOC 


2499* 


Bove.b 

d7.RHdskRC(Ai} 

,save disk server nuBber 

40C2 



2700* 


bras 

LcBdOk 

iretorn 




2701* 




, 

BE29 

0023 


2702* 

Scid4 

cap . b 

TCdest<Al),D7 

Hid response coae froB the right place 

47BC 



2703* 


beq.s 

LcBdOK 

.yes 

4100 

PE4A 


2704* 


bsr 

SetRecv 

,set up receive again. 

4DB2 



2705* 


blt.s 

IcBdCrt 

,if DO ( 0 then fatal DRV error 

40CE 



2704* 


bras 

ScBd2 

;go back and wait again . . 


2707* 
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2709* include 'CC.FROH.FD* .Cotvos floppy driver 

2710* , 

2711* , File; CC. PROM. FD. TEXT 
2712* , Dete. l9-Jun-82 
2713* , By: Ravi Luthra 

2714* , Keith Bail 

2715* , 

2716* 

2717* , 

2718* , Fboot — Floppy disk boot processing 

2719* ; 


HOE 

ilCO 

0700 


2720* 

Fboot 

•ove.b 

dO.CPbtslot.w 

.set boot slot nuaber 


H12 

IICO 

0706 


2721 * 


■ove .b 

d0,CPossiot.w 

.set OS slot nuiber 






2722* 

, 

clr b 

CPbtsrvr m 

.set boot server nuiber 

(already 0) 

Hii 

487A 

0034« 


2723* 


pea 

FDblklO 

iset boot disk blk i/o subr 

pointer 

HIA 

21DF 

0714 


2724* 


aove. 1 

(splt.CPblkio.w 

; * 


HIE 

467A 

0044i 


2725* 


pea 

FDsecIO 

;set boot disk sector i/o subr pointer 

1422 

2IDF 

0718 


2726* 


Aove. 1 

(spl^.CPdskio.w 

; * 






2727* 

; — - 

■o*eq 

tO.dO 


(already D) 





2728* 

, 

■ove. b 

dO.CPossrvt.w 

.set OS server nuiber 

(already 0) 





2729* 

, 

love.M 

dO.CPosblkil.w 

;set OS volnae block nuiber 

(already 0) 





2730* 

, 

Aove.b 

dO.CPosdrv.w 

iset OS voluie drive nuiber 

(already 0) 

1426 

6100 

006A 


2731* 


bsr 

FDlSsssd 

iset up floppy constants 


H2A 

6l0C 

OOAE 


2732* 


bsr 

FOinit 

iinitialise floppy drive 


142E 

6D1A 



2733* 


blt.s 

Fboot90 

.just return if error 






2734* 






H30 

207C 

OOOB 

EOOO 

2735* 

Fboot 1 

■ove . I 

lUSRbase.aO 

;get block buffer pointer 


1436 

7000 



2736* 


■oveq 

10. dO 



1438 

3200 



2737* 


love .w 

dO.dl 



H3A 

7A32 



2738* 


■oveq 

•OskRead.dS 

.get read block function code 





2739* 






H3C 

610E 



2740* 


bsr . s 

FOblklO 

;read block 1 of boot code 


H3E 

6D0A 



2741* 


blt.s 

FbootfO 

;iust return if error 


1440 

610A 



2742* 


bsr s 

FOblklf} 

;read block 2 of boot code 


1442 

6D06 



2743* 


bits 

Fboot90 

;jost return if error 


1444 

207C 

0008 

EOOO 

2744* 


■ove.l 

lUSRbase.aO 

.get block buffer pointer 






2745* 






H4A 

4E75 



2746* 

Fboot90 

rts 


; return 






2747* 
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H4C 

48E7 

FE7E 

2785* 

FOblklO MOVEM.L 

O0-D6/Ai-A6,-(SP) 


14SQ 

343C 

0200 

2786* 

MOVE .V 

IBLXSZ,D2 

iBLOCK SIZE IK BYTES 

H54 

3600 


2787* 

MOVE.W 

D0.D3 


HSi 

6100 

OQDO 

2788* 

BSR 

FDtdwi 


14SA 

4CDF 

7E7F 

2787* 

MOVEM.L 

(SP)4.,D0-D6ai-A6 

iiestoie registers 

14SE 

5240 


2770* 

ADDQ.V 

• 1.00 

iINC BASE BLOCK 

1460 

4A07 


2771* 

TST.B 

D7 

.set return condition code 

1462 

4E75 


2772* 

2773* 

RTS 


.return 
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2795* 

, 







2796* 

, FOsctIO - Read/Vrite a Corvus floppy disk sector 




2797* 

, 







2798* 


Enter . 

AO.l - Buffer address 





2799* 



01 .V - Bytes per sector 

128 for single density) 




2800* 



03. V - Track naaber 





2801* 



04. V - Sector nuaber 





. 2802* 



OS.V - Read <832) or Write ($33) coaaand 




2803* 








2804* 


Eiit 

07. y - lORESULT 





2805* 








2806* 


All other registers are preseree 

. 




2807* 








2808* 

,DsecI0 

MOVEM.L 

O0-D6/A0-A6,-(S?) 

save registers 




2809* 


BSR 

FOgetadr 

set address registers 




2810* 




A1 = ptr to device description info 




2811* 




A2 = ptr to slot controller registers 




2812* 




A3 = ptr to slot static RAM 




2813* 


CLR.L 

OO 





2814* 


BSR 

FDlcadl 

turn on aotor and setup controller 




2815* 


BSR 

FOseek 

get to track 




2816* 


8NE.S 

FOsio9 

if error, return 




2817* 


CHPI U 

lOskWrit.OS 

only do write if cad is a write 




2818* 


BNE.3 

FOsio2 

else do a read 




2819* 


BSR 

FOsecV 





2820* 


BRA.S 

FOsio9 





2821 * 








2822* 






0C45 

C033 

2823* 

FOsecIO 

CKPl.V 

IDskVrit.OS 

aake sure cad is a read cad 

14iS 

6604 


2824* 


BNE.S 

FOsiol 

it is 

14a 

6000 

0376 

2825* 


BRA 

FOEopcd 

it isn't, return error 




2826* 





H&E 

48E7 

FEFE 

2827* 

FOsiol 

MOVEM.L 

D0-06/A0-A6.-(SP) 

save registers 

1472 

6100 

016C 

2828* 


BSR 

FOgetadr 

set address registers 




2829* 




A1 : ptr to device description info 




2830* 




A2 « ptr to slot controller registers 




2831* 




A3 s ptr to slot static RAM 

1476 

4280 


2832* 


CLR.L 

OO 


1478 

6100 

008A 

2833* 


BSR 

FDlcadl 

turn on aotor and setup controller 

147C 

6100 

02SC 

2834* 


BSR 

FOseek 

get to track 

1480 

6604 


2835* 


BNE.S 

FDsio9 

if error, return 




2836* 





1482 

6100 

0006 

2837* 

FDsio2 

BSR 

FDsecR 

read sector specified by 04. V 




2838* 





1486 

6100 

0066 

2839* 

FOsio9 

BSR 

FOatrof 

turn off aotor 

14SA 

4CDF 

7F7F 

2840* 


MOVEM.L 

(SF)«.D0-O6/A0-A6 

restore registers 

148E 

4A07 


2841* 


TST.B 

D7 

set return condition code 

1490 

4E75 


2842* 


RTS 


return 


2843< 
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00000900 

00000000 

00000200 


00030001 

00000020 

00030001 

00000200 

00030A01 

00000000 

00000001 

00000002 

00000003 

00000004 

ooooooos 

00000000 

00000007 


2845* , 

2840* ; FLOPPY MAIN EQUATES USED BY THE DRIVERS AND FORMAT CODE GROUPS. 
2847* , indices to code in static ran - tan is slot dependent $900 for 
2848* , OAQO for slot 2, OBOO for slot 3, and $C00 for slot 4 
2849* ; 

2850* BASERAM ego CPsIlran .ADDRESS OF FIRST RAH FOR SLOTS 

2851* SVLCMD eqo 0 .SAVE OF LOCAL COMMAND 

2852* , 

2853* BLKSZ eqa 512 .OS BLOCK SIZE 

2854* . 

2855* , SLOT BASE ADDRESSES 
2850* , 

2857* , The floppf controller is inserted into one of the slots 


2858* 

; Each slot 

has 

two address 

select decodes coning to it 

2859* 

2800* 

. One is called 

NDEVSEL and 

the other is called SLQTSEL 

2801* 

NDEVIAD 

equ 

$30001 

.AORS OF NDEVC (does not eiist) 

2802* 

2803* 

DEVADOFST 

equ 

$20 

.OFFSET OF OTHER NDEVS ADRS 

2804* 

SLOTIAD 

equ 

$30001 

.ADRS OF slot 0 (does not eiist) 

2805* 

2800* 

SLTADOFST 

equ 

$200 

,ADRS OFST FOR OTHER SLOTS 

2807* 

2806* 

SLTSTAD 

equ 

$30A01 

.SLOT STATUS ADRS 

2809* 

NNMIl 

equ 

0 

.BIT POSITION FOR EACH STATUS BIT 

2870* 

NNHI2 

equ 

1 


2871* 

NKHI3 

equ 

2 


2872* 

2873* 

NNHI4 

equ 

3 


2874* 

NIRQl 

equ 

4 


2875* 

NIRQ2 

equ 

5 


2870* 

NIRQ3 

equ 

0 


2877* 

NIRQ4 

equ 

1 

, 


2878* 
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2880* 





2881* 

i By Its pti sector 



2882* 

; 



9000008C 

2883* 

BPS8IS0 tqa 

128 

iSingle density 8” 

OOOOOIQO 

2884* 

BPS8IDD eqa 

256 

.Double density 8" 

00000190 

2885* 

BPSSISO equ 

256 

.Apple 5 1/4" floppy 


2886* 

, 




2887* 

; Sectors per 

track 



2888* 

, 



COOOOOIA 

2889* 

SCFT8SD equ 

26 

.Single density 8" 

OOOOOOiA 

2890* 

SCPT8DD equ 

26 

;Oonble density 8" 

00000019 

2891* 

SCPTSSD equ 

16 

;Apple 5 1/4" floppy 


2892* 





2893* 

, Tracks per side 



2894* 

, 



0000004D 

2895* 

TKPS8SD equ 

77 

.Single density 8" 

0000004D 

2896* 

TXPS8DD equ 

77 

.Double density 8" 

00000023 

2897* 

TKPSSSO equ 

35 

.Apple 5 1/4" floppy 


2898* 

, 




2899* 

, Nuiber of blocks per 

disk 


2900* 

, 



000GO1F4 

2901 * 

NBLK8SO equ 

500 

.Single density 8" single sided 

0D0003E9 

2902* 

NBLK8DO equ 

1001 

/Double density 8" single sided 

00000118 

2903* 

KBLK5SO equ 

260 

.Apple 5 1/4” floppy 


2904* 

, 




2905* 

, Error return 

codes 



2906* 

, 



90000000 

2907* 

RGOOO equ 

0 

idisk acess successful 

FFFFFFFF 

2908* 

RBD6LX equ 

-1 

.Block requested is out of range 

FFFFFFFE 

2909* 

RBDUNT equ 

-2 

;bad unit nunber or drifer not inplenented 

FFFFFFFD 

2910* 

RBDOPCO equ 

-3 

^Requested unit I/O function is not valid 

FFFFFFFC 

2911* 

RHVRERR equ 

-4 

.Hardware error 

FFFFFFFB 

2912* 

RLOSTDEV equ 

-5 

;Lost device, i.e. device went offline 


2913* 




FFFFFFFO 

2914* 

RVRPROT equ 

>16 

.the unit is write protected 

FFFFFFEF 

2915* 

RSEEXERR equ 

-17 

,SEEX Error 

FFFFFFEE 

2916* 

RBUSY equ 

-18 

.device busy 

FFFFFFED 

2917* 

RRNF equ 

-19 

.record not found - aaybe disk is bad 

FFFFFFEC 

2918* 

RNOTRDY equ 

-20 

.device not ready 

FFFFFFCfl 

2919* 

RERRUNOVN equ 

-64 

.error origin unknown 


2920* 
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2922* 

i 





2923* 

, This section 

conatins the equates for Floppy Disk cont FD1793 


2924* 

, Ml references are w.r 

t MDEVIAD in A2 


2925* 

; Prefii 

of L' 

leans that this reference is to the 'LOCAL' 


2926* 

i logic on the 

disk controller board 


2927* 

; Prefii 

of FDC 

means that this referenc is to the Floppy disk 


2928* 

, 





2929* 

, Local disk controller board equates 


2930* 

i 




QOOOOOOO 

2931* 

LSTRR 

equ 

0 

indei to the local Status teg 

00000000 

2932* 

ICHDR 

equ 

0 

indei to the local command reg 


2933* 





00000000 

2934* 

LSDRQ 

equ 

0 

BIT 0 =1 DRQ 

OQOOOOOl 

2935* 

L5INT 

equ 

1 

INTERRUPT REQUEST 

00000004 

2936* 

LS1SD2SD 

equ 

4 

=0 if 2 sided , =1 it one sided 

flOOOOOOS 

2937* 

LS8INK1N 

equ 

5 

=1 if 8 inch , sO if min 

00000006 

2938* 

LSDSKCHC 

equ 

6 

=0 if disk changd, 1 if not 

00000007 

2939* 

LSFMMFM 

equ 

7 

=1 it sigl density =0 if double 


2940* 






2941* 

i Coiaand 

register equates 


2942* 





00000000 

2943* 

LCFLPSDl 

equ 

0 

::0 if side 0 , =1 it side 1 

00000001 

2944* 

LCDEO 

equ 

1 

drive selct bit 0 

00000004 

2945* 

LCOEl 

equ 

4 

drive select bit 1 

00000005 

2946* 

LCNOTOROF 

equ 

5 

=1 tf motor to be turned oft 

00000006 

2947* 

LC8INMIN 

equ 

6 


00000006 

2948* 

LCFIP8IN 

equ 

6 

si to select 8 in, sO for 5 1/4 

00000007 

2949* 

LCFMMFH 

equ 

7 

si to select sing! density , 0 for dbl 


2950* 
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2952* 

, 






2953* 

, Floppy disk 

controllers equates 



2954* 

, 





00000010 

2955* 

FDCAD 

eqa 

$10 

Floppf disk controller base indei 



2954* 

, 






2957* 

, aildtess 

of the internal registers of FOC 



2958* 

, 





00000010 

2959* 

FDCCHOR 

eqo 

FDCADfO 

AORS OF FOC COHKAHO REG 


00000010 

2940* 

FOCSTRR 

equ 

FOCAOiO 

ADRS OF FOC STATUS REG 


00000012 

2941* 

FDCTRKR 

eqo 

FOCAOf2 

AORS OF FDC TRACK REG 


OOOOOOH 

2942* 

FDCSECR 

equ 

FOCADH ,ADRS OF FOC SECTOR REG 


OOOOOOU 

2943* 

FDCDATR 

equ 

FDCAD^4 iAORS OF FDC DATA REG 



2944* 

, 






2945* 

, Couand 

code 

equates 




2944* 

, 





GOCOOOOO 

2947* 

CRESTORE 

eqo 

0 

0 0 0 0 H V R1 HO 


00000010 

2948* 

CSEEK 

eqo 

$10 

0 0 0 1 h V rl rO 


00000020 

2949* 

CSTEP 

eqo 

$20 

0 0 1 U h V rl rO 


00000000 

2970* 

C5TEPIN 

eqo 

$40 

0 1 0 U h V rl rO 


oooooooo 

2971* 

CSTEPOUT 

eqo 

$40 

0 1 1 U h V rl rO 



2972* 

, 






2973* 

, Type 11 

couands 




2974* 

, 





ooooooso 

2975* 

CROSEC 

eqo 

$80 

1 0 0 ■ F2 E FI 0 


OOOOOOAO 

2974* 

CVRSEC 

eqo 

$A0 

1 0 1 ■ F2 E FI 0 



2977* 

, 






2978* 

;TYpe III 

couands 




2979* 

, 





ooooooco 

2980* 

CROAM 

eqo 

$C0 

1 1 0 0 0 E 0 0 


OOOOOOEO 

2981* 

CRDTRK 

equ 

$E0 

1 1 1 0 0 E 0 0 


OOOOOOFO 

2982* 

CVRTRK 

eqo 

$F0 

11110 £0 0 


OOOOOODO 

2983* 

CFRCINT 

equ 

$00 

1 1 0 1 11 12 13 14 



2984* 

, 






2985* 

, FLAGS eqaates - all f 

ags have prefii of F 



2984* 

, 





00000008 

2987* 

FHld 

equ 

$6 

if =1 load head in the beginning 



2988* 




if =0 unload head in beginning 


00000004 

2989* 

FVerify 

eqo 

$4 

if si ferifr destination trk else 

not 

00000010 

2990* 

FUpdttrk 

eqo 

$10 

if si update TRK reg after each STEP 

00000000 

2991* 

FSTPRT3«s 

equ 

$0 

step rate s 3 Billiseconds 


00000001 

2992* 

FSTPRT4as 

eqo 

$1 

step rate s 4 Billiseconds 


00000002 

2993* 

FSTPRTIObs eqa 

$2 

step rate s 10 Billiseconds 


00000003 

2994* 

FSTPRT15BS equ 

$3 

step rate s IS Billiseconds 



2995* 






00000010 

2994* 

FHP5 

eqo 

$10 

Hsl if Bultiple sectors else =0 


00000004 

2997* 

FDL7 

eqo 

$4 

Csl if internal dly of IS bs sQ nc 

dly 

00000008 

2998* 

FSDCPM 

eqo 

$8 

F2s0 coBpare with side O.sl with side 1 

00000002 

2999* 

FSDCHPEN 

eqo 

$2 

Flsl enable side coBpare, sO disable CBp 


3000* 






00000001 

3001* 

FINTRDY 

eqo 

$1 

not ready to ready 


00000002 

3002* 

FIKTNRDY 

eqo 

$2 

ready to not ready 


00000004 

3003* 

FINTIDXP 

eqo 

$4 

interrupt on indei pulse 


00000008 

3004* 

FIMTim 

eqo 

$8 

terBinate couand iuediately and 

intrpt 


3005* 
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00000000 

00000001 

00000001 

00000002 

00000002 

00000002 

00000003 

00000004 

00000004 

ooooooos 

ooooooos 

ooooooos 

00000000 

00000007 


3007» 






3000* 

3009* 

3010* 

3011* 

; Status 
inaae 

register equate 
bit position 


all status reg bits have 

3012* 

3013* 

SBUSY 

ego 

0 

SO 

busy 

3014* 

SINDEI 

eqn 

1 

SI 

indei pulse encountered 

301S* 

3010* 

SDRQ 

equ 

1 

SI 

data request 

3017* 

STRXO 

equ 

2 

S2 

track 00 

3010* 

SDTOVER 

equ 

2 

S2 

data over tun 

3019* 

3020* 

SDTUNDR 

equ 

2 

S2 

data under tun 

3021* 

3022* 

SCRCERR 

equ 

3 

S3 

etc error 

3023* 

5SEEKERR 

equ 

4 

S4 

seek error 

3024* 

302S* 

SRNF 

equ 

4 

S4 

record not found 

3020* 

SHDLDO 

equ 

5 

ss 

head loaded 

3027* 

SRECTYP 

equ 

5 

S3 

record type 

3020* 

3029* 

SVRFAULT 

equ 

5 

SS 

write fault 

3030* 

3031* 

SVRPROT 

equ 

0 

SO 

floppy write protected 

3032* 

3033* 

SNOTROY 

equ 

7 i 

57 

floppy not ready 
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3035* 

, 







3034* 

; FDISsssd -- Set up constants for Corvus 8" single side single density 





3037* 

, 



1492 




3038* 

FD18sssd 


1492 

4100 

OMC 


3039* 


bsr FDgetadi 

set address registers 





3040* 



A1 : ptr to deTice description info 





3041* 


,A2 = ptr to slot controller registers 





3042* 



A3 s ptr to slot static RAH 

1494 

337C 

01F4 

0734 

3043* 


lOTe.w INBLK8SD,CPfdTsx(Al) 

set deTice site in blocks 

i49C 

337C 

0880 

0734 

3044* 


■OTe.w IBPSSISD.CPfbpstAl) 

set bytes per sector 

14A2 

137C 

OOU 

0738 

3045* 


noTe.b tSCPT8SD,CPtspt(Al) 

set sectors per track 

14AB 

137C 

004D 

0739 

3044* 


BOTe.b tTKPS8SD,CPttps(Al) 

set tracks per side 

MAE 

401C 



3047* 


bras FOISss ,set other Talues and return 





3048* 








3049* 

, 







3050* 

; FD18ssdd -- Set up constants tor Coitus S" single side double density 





3051* 

i 



HBO 




3052* 

FDI8ssdd 


MBO 

4100 

012E 


3053* 


bsr FOgetadr 

set address registers 





3054* 



Al s ptr to deTice description info 





3055* 



A2 = ptr to slot controller registers 





3054* 



A3 :: ptr to slot static RAN 

M64 

337C 

03E9 

0734 

3057* 


Bove.w INBLK8DD,CPfdTSt(Al) 

set deTice sue in blocks 

MBA 

337C 

0100 

0734 

3058* 


•OTe.w IBPSSIDO.CPfbpstAl) 

set bytes per sector 

14C0 

137C 

OOIA 

0738 

3059* 


•OTe.b tSCFT8DO,CPfspt(Al) 

set sectors per track 

MC4 

137C 

0040 

0739 

3040* 


BOTe.b mPS8DO,CPftps(Al) 

set tracks per side 

MCC 

137C 

0001 

073A 

3041* 

F018ss 

BOTe.b «l.CFfspd(AU 

set sides per disk 

1402 

137C 

0001 

073B 

3042* 


BOTe.b •l,CPiofst(Al) 

set first track offset 

M08 

4E75 



3043* 


rts 

return 





3044* 








3045* 

; 







3044* 

; FOinit -- Initialiie Coitus floppy disk diiTe 





3047* 

i 



MDA 

4100 

0104 


3048* 

FDinit 

BSR FDgetadr 

set address registers 





3049* 



Al = ptr to deTice description info 





3070* 



A2 s ptr to slot controller registers 





3071* 



A3 s ptr to slot static RAH 

MDE 

4280 



3072* 


CLR.L DO 


MED 

7201 



3073* 


MOVED 11. D1 

A FAKE SECTOR LENGTH 

ME2 

4120 



3074* 


BSR.S FDlcBdl 

turn on Botor and setup controller 

ME4 

4100 

0230 


3075* 


BSR FDrst 

restore to track 8 

ME6 

4104 



3074* 


BSR.S FDBtiof 

turn Botoi off 

MEA 

4A07 



3077* 


TST.B D7 

set return condition code 

MEC 

4E75 



3078* 


RTS 

return 





3079* 
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30B1* 

3082* 

3083* 

3084* 

308S* 

3086* 

3087* 

3088* 

3089* 

3090* 

3091* 

3092* 

3093* 

3094* 

3095* 

3096* 

3097* 


DO.W - FREE 
Dl.W - FREE 
D2.W - BYTE CNT 
D3.U - BASE BLK ADRS 
D4 .V - FREE 
D5.W - USER CWD 
D6 .W - FREE 

AO.L - USER BUFFER ADDRESS 
All - DEVICE DESCRIPTION AREA BASE ADDRESS 
A2.L - FLOPPY CONTROLLER BASE ADDRESS 
A3.L - STATIC RAH BASE ADDRESS 


FDatrof — Turn aotot off 


14EE 

182B 

0000 

3098* 

FDmtiof 

■ofe.b 

SVLCHD(A3),D4 

iget current local coaaand 

14F2 

08C4 

0005 

3099* 


bset 

tLCMOTOROF.D4 

,set Botor off flag 

14F6 

1544 

0000 

3100* 


Bove.b 

D4.LCMDR(A2) 

,B 0 ve coaaand to coaaand reg 

I4FA 

1744 

0000 

3101* 


aowe.b 

D4,SVLCMD(A3) 

,save current local coaaand 

I4FE 

4E75 


3102* 


rts 


, return 




3103* 








3104* 

; 







3105* 

, FDlcBd — GET THE LOCAL COHKANO FOR THIS DRIVE INTO REGISTER DOB 




3106* 

, 

RETURNS WITH D7 CLEAR LONG 




3107* 

i 




1500 

6100 

OlOA 

3108* 

FDIcad 

bsi 

FDclcTS 

Caic first side trk sec 




3109* 


, 






3110* 


Iota 

e local coaaand in DO 




3111* 


; Eitlif used for Reed/Vtite a sector 




3112* 


; 



1504 

0880 

0005 

3113* 

FDlcadl 

belt 

ILCHOTOROF.DO 

clear aotor off bit 

1508 

06C0 

0006 

3114* 


bset 

8LCFLP8IN,dO 

indicate 8 inch flp 

150C 

O8C0 

0007 

3115* 


bset 

ILCFHHFH.dO 

indicate 8 inch flp 

1510 

1E29 

0708 

3116* 


aove.b 

CPosdrf(al),d7 

sel drite 

1514 

E25F 


3117* 


tor w 

11, d7 

note DEO is BO 

1516 

ESOF 


3118* 


Isl.b 

•2,d7 

DEI is B4 

1518 

E5SF 


3119* 


rol .w 

12, d7 


ISIA 

8007 


3120* 


orb 

d7,d0 

set into dO 

ISlC 

1740 

0000 

3121* 


aote.b 

dO,SVLCHD(a3) 

save then coaaand 

1520 

1540 

0000 

3122* 


aove.b 

dO,LCHDR(a2) 

set local coaaand register 

1524 

4287 


3123* 


cir.l 

d7 

clear error register 

1526 

4E75 


3124* 


rts 


return 
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1528 

4100 

00B4 

3127* FDrdwr 
3128* 

3129* 

3130* 

BSR 

FDgetidr 

iset address registers 
,A1 = pointer to device description info 
,A2 = pointer to slot controller registers 
,A3 ^ pointer to slot static RAH 

152C 

4A43 


3131* 

TST.W 

D3 

, test base block 

152E 

4B00 

02A8 

3132* 

BMI 

FOEblck 

,juBp It first blk rqstd is invalid 

1532 

B449 

0734 

3133* 

cap.w 

CPfdTSi(Al),d3 

iis it in liBit 

1534 

4C00 

02AC 

3134* 

bge 

FOEblck 

.jusp final block eaceeds lai 

153A 

41C4 


3135* 

BSR.B 

FOlcad 

iset local cowiand register 


3134* 



315S* 


153C 

4100 

019C 

3154* 


bsr 

FDseek 

iseek the desired track 

1540 

4412 


3157* 


bne . s 

FDrdwr? 

,ii error, return 




3158* 





1542 

944 1 


3159* 

FDrdwrl 

sab w 

dM2 


1544 

4B0E 


3140* 


bii s 

FDrdwr? 

ireturn if no sore sectors to process 

1544 

4112 


3141* 


bsr s 

FDsecRV 

;process sector 

1548 

4A07 


3142* 


tst.b 

d7 

,d7 contains result code 

154A 

4408 


3143* 


bne.s 

FDrdwr? 

,if error, return 

154C 

4100 

OlOA 

3144* 


bsr 

FDincTS 


1550 

4402 


3145* 


BNE.S 

FDrdwr? 

;TIHED OUT ERROR 

1552 

40EE 


3144* 


bra. s 

FDrdwrl 

rprocess neit sector 




3147* 





1554 

4100 

FF98 

3148* 

FDrdwr? 

bsr 

FDitrof 

itorn off motor 

1558 

4E75 


3149* 


rts 


iteturn 


3170* 
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ISSA 


155A 

ISSE 

1S62 

1584 

1561 

156A 

156E 

1570 
1574 

1571 
157C 
ISBO 


1584 

1588 

1S8A 

1S8C 

1590 

1592 




3172* 





3173* 

FDsecRV -- Read oi write a sector of data to the floppy 



3174* 

It transfer the data to/troa the adrs in AO 



3175* 

froa / to the floppy 



3176* 





3177* 

Enter: D5 - DskRead or 

DskVrit 



3178* 





3179* FDsecRV 

,fali thru to FDsecR 



3180* 

cap.w IDskVrit,D5 

,see if it is a Unit write 



3181* 

beq.s FDscRVl 




3182* 

bsr.s FDsecR 




3183* 

bra.s FDscRV9 




3184* 

FDscRVl bsr.s FDsecV 




3185* 

FDscRV9 rts 




3186* 





3187* 





3188* 

FDsecR -- Read one sector of 

data 



3189* 





3190* 

Enter: bytes per sec 

— > Dl.w 



3191* 

sector adrs -- 

— > D4.W 



3192* 

buffer adrs -- 

— ) AO 



3193* 

floppy aust be 

poitioned on desired track 



3194* 





3195* 

Exit: OS result code 

D7 



3196* 

data to the adrs pointed by AO 



3197* 



00000004 

3198* FOtcHd equ 4 

,read sector retry count 

00000004 

3199* FDicDOr eqa 4 

,data overrun retry count 



3200* 



48E7 

0600 

3201* FOsecR aotei.l d5-d6,>(SP) 

, save 

3A3C 

0004 

3202* 

aofe.w IFDrcRd.dS 

,get read sector retry count 

2848 


3203* 

Bove.l a0,a4 

,save user buf ptr 



3204* 



3C3C 

0004 

3205* FDsecRl love.M IFDccDOi,d6 

,get data overrun retry count 



3206* 



204C 


3207* FDsecR2 aoeei a4,a0 

,gei user buf adrs 

6100 

0144 

3208* 

BSR FDwRdy 

,VAIT FOR READY OR TIMED OUT 

661C 


3209* 

BKE.S FDsecR9 

iTIKED OUT ERR 

6100 

0022 

3210* 

BSR FDccRd 


0807 

0002 

3211* 

btst ISDTOVER,d7 

, is ther data overrun 

57CE 

FFEE 

3212* 

dbeq d6,FDsecR2 

,data over run, try again. 

0807 

0003 

3213* 

btst tSCRCERR.d? 

, is ther crc error 

57CO 

FFE2 

3214* 

DBEQ d5, FDsecRl 

, DO UNTIL (no crc error) 



3215* 


; or (no ao re retries let 1 1 



3216* 



6100 

0206 

3217* FDsecH3 B5R FDrdSta 

.check read status 

6702 


3218* 

beq.s FDsecR9 


204C 


3219* 

aove.l a4,a0 




3220* 



4CDF 

0060 

3221* FDsecR9 aofei.i (sp)i,dS-d6 


4A07 


3222* 

tsl.b d7 

;d7 contains result code 

4E75 


3223* 

rts 

; return 



3224* 
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3228* 

, 




3227* 

3228* 

, FDsecV 

- Vri 

te one sector of data 

322?* 

3230* 

i Enter: 

bftes per sec — 
sector adrs 

01. w 
-> D4.W 

3231* 



buffer adrs 

■> AO 

3232* 

3233* 



fioppf ittst be poitioned on desired track 

3234* 


Esit. 

OS result code — 

-/ D7 

3235* 

3238* 



data to the adrs pointed by AO 

3237* 

.FOrcVr 

equ 

4 

write sector retry count 

3238* 

323?* 

, FDrcDOw 

eqa 

4 

data overrun retry count 

3240* 

, FDsecV 

■ovei. 

d5-d8,-(SP) 

save registers 

3241* 


•Ofe.w 

IFDrcVr,d5 

get write retry count 

3242* 

3243* 


iove . i 

a0,a4 

save user buf ptr 

3244* 

3245* 

JDsecVl 

aofe.w 

•FOrcDOw,d8 

get data overrun retry count 

3248* 

,FDsecV2 

BOfe . 1 

a4,a0 

get user but adrs 

3247* 


6SR 

FDwRdy 

VAIT FOR READY OH TIMED OUT 

3248* 


BNE.S 

FDsecV? 

TIMED OUT ERR 

324?* 


BSR 

FDccVr 


3250* 


btst 

tSOTOVER.d? 

data overrun? 

32 5 1 * 


dbeq 

d8,FDsecV2 

yes, try again 

3252* 


btst 

ISCRCERR,d7 

CRC error? 

3253* 

3254* 


dbeq 

d5,FDsecVl 

yes, try again 

3255* 


BSR 

FDwrSta 

check write status 

3258* 


beq S 

FDsecV? 

if no error, return 

3257* 

3258* 


■o*e. 1 

a4,a0 


325?* 

, FDsecV? 

tofea. 

1 (sp)f,dS-d8 

restore registers 

3260* 


tst.b 

d7 

d7 contains result code 

3281* 

3282* 


Its 


return 
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3264< i 

TYPE II 

COMMANDS ***** 






3265* 








3266* , 








3267* i FDccRd Read one sector of data 






3268* , 








3269* , 

Enter : 

bytes per sec ---) 

Dl.w 





3270* , 


sector adrs > 

D4.W 





3271* , 


buffer adrs > 

AO 





3272* ; 


floppy Bust be positioned on desired track 





3273* ; 








3274* ; 

Eiit : 

status ) D7 






3275* ; 


data to the adrs 

pointed by AO 





3276* i 




1574 

3F01 



3277* FDccRd 

love .w 

dl,-{SP) 

, save 

137i 

5341 



3278* 

sabq .w 

11, dl 

,byte count 

1598 

40E7 



3279* 

Boee .w 

sr,-(SP) 


1598 

007C 

0700 


3280* 

ori ,w 

I$07fl0,sr 

idisable interrupts 

159E 

1544 

0014 


3281* 

Boee . b 

d4,FDCSECR(A2) 


1SK2 

157C 

0080 

0010 

3282* 

BOfe b 

ICRDSEC,FDCCHDR(A2) 

1 issue coBBand 

15A8 

3E3C 

0019 


3283* 

Bove .w 

825, d7 

,wait at least 28 Bicro-second 

ISAC 

51CF 

FFFE 


3284* FDccRdl 

dbf 

d7, FDccRdl 






3285* 




1SB9 

0B2A 

0000 

0010 

3286* FDccRdZ 

btst 

ISBUSY,FDC5TRR(A2) 

,see it the ctir is busy 

1SB8 

87F8 



3287* 

beq.S 

FCccRdZ 

, }uap if not busy 





3288* 

, 







3289* 


TIME CRITICAL LOOP 






3290* 

, 



1SB8 

1E2A 

0000 


3291* FDccRd3 

Bove.b 

LSTRR(A2),D7 

,read status 

15BC 

0807 

0000 


3292* 

btst 

ILSDRQ,d7 

,is DRQ there 

ISCO 

6608 



3293* 

bne. s 

FDccRd5 

.yes , juBp 





3294* 




ISCZ 

0807 

0001 


3295* FDccHd4 

btst 

ILSIMT,D7 

, is FDC done 

15Ci 

67F0 



3296* 

beq.S 

FDccRdS 

,no, jump 

15C8 

600C 



3297* 

bra . s 

FDccRd6 

iCtlr terBinated too soon 





3298* 




ISCA 

lOEA 

0016 


3299* FDccRdS 

BOfe . b 

FDCDATR(A2),(aO)t 

,get a byte froB IDC 

15CE 

51C9 

FFE8 


3300* 

dbf 

d.l, FDccRdS 

,read the resaining bytes 





3301* 

, 







3302* 

; a coBplete sector has been read. 





3303* 

, 



1SD2 

6100 

0194 


3304* 

bsr 

FDnRdy 






3305* 



, 

15D8 

1E2A 

0010 


3306* FDccRd6 

BOfe.b 

FDCSTRH(A2),d7 

iiead the status 

ISDA 

46DF 



3307* 

BOfe .w 

(sp)+,sr 

.restore SR 

ISOC 

321F 



3308* 

BOfe . w 

(SP)4,dl 


15DE 

4E75 



3309* 

rts 







3310* 
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3312» 
33i3» 
3314* 
3315* 
3316* 
3317* 
3318* 
3319* 
3320* 
3321* 
3322* 
3323* 
3324* 
3325* 
3326* 
3327* 
3328* 
3329* 
3330* 
3331* 
3332* 
3333* 
3334* 
3335* 
3336* 
3337* 
3338* 
3339* 
3340* 
3341 * 
3342* 
3343* 
3344* 
3345* 
3346* 
3347* 
3348* 
3349* 
3350* 
3351* 
3352* 
3353* 
3354* 
3355* 
3356* 
3357* 


FDccVr -- Write one sector of data 

Enter: bytes per sec ---) Dl.w 

sector adrs > D4.w 

buffer adrs > AO 

floppy lust be poitioned on desired track 


Eiit. status > B7 

data to the adrs pointed by AO 


JOccVr 

■ofe.w 

dl,-(SF) 

safe 


subq w 

ti,dl 

byte count 


BOfe.w 

sr,-(SP) 



ori w 

•$0700, sr 

disable interrupts 


BSR.S 

FDccVrl 

CALL tine critical FDccWr FART 


bsr 

FDnRdy 



■ore.b 

FDCSTRR(A2),d7 

read the status 


■ofe.w 

(splt.sr 

restore SR 


•ofe .w 

<SP)f,dl 



rts 


return 

.FOccWrl 

BOfe.b 

d4,FOCSECR(A2) 



tove b 

•CVRSEC,FDCCHDR(A2) 

issue consand 


•Ofe w 

•25. d7 

wait at least 28 nicio-second 

iFOccVrX 

dbf 

d7.FDccWr2 


,FDccWr3 

btst 

iSBUST,FDCSTRR<A2) 



beq s 

FDccVr3 



, tttei 

TIME CRITICAL LOOP 


,FOccWr4 

■ofe.b 

LSTRR(A2),D7 

FOCSTRR(A2),d7 ;read status 


btst 

•LSDRQ.d? i 

is DRQ there 


bne. s 

FOccVr6 

yes , junp 

.FDccWrS 

btst 

ILSIKT,07 

is FDC done 


beq s 

FDccVr4 

no , juap 


rts 


terainated too soon 

;FOccVr6 

•Ofe b 

(aO)f,FDCOATR(A2) 

•Ofe a byte to FDC 


dbf 

dl,FDccVr4 

write the reaaining bytes 


RTS 


return 
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3359* 







3360* 

FDoetidc -- Get pointers to defice description info, controller registers, 





3361* 

end ststic RAH for current slot 





3362* 







3363* 

Eiit : 

A1 s pointer to device description info 





3364* 


A2 = pointer to controller registers for slot 





3365* 


A3 = pointer to static RAH for slot (CPosslot) 





3366* 



ISEO 




3367* 

FDgetadr 


iSEO 

227C 

0000 

0000 

3368* 

•o«ea . 

t0,Al ,get pointer to device description info 

1SE8 

247C 

0003 

0001 

3369* 

lose. 1 

INDEVIAD.AZ ;get pointer to controller registers 

ISEC 

1E29 

0706 


3370* 

Bove.b 

CPosslot(al).d7 ,* 

15m 

4887 



3371* 

eit .w 

d7 i* 

15F2 

CEFC 

0020 


3372* 

nulu.vf 

8DEVADOFST,d7 ;* 

1SF8 

D5C7 



3373* 

adda.l 

d7,a2 ;» 

15F8 

47F8 

0900 


3374* 

lea 

CPsllraa.w, A3 ;get pointer to static RAH 

15FC 

1E29 

0706 


3375* 

aofe.b 

CPosslot(al).d7 ;* 

UOO 

4887 



3376* 

eit.w 

d7 ,* 

U02 

5347 



3377* 

sobg.vi 

tl.d? ;• 

U08 

CEFC 

0100 


3378* 

AttlU 

I$100,d7 ,* 

U08 

07C7 



3379* 

addi. 1 

d7,A3 ,» 

UOA 

4E75 



3380* 

rts 

; return 





3381* 
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3383* 

, 








3384* 

, FOclcTS -- calculate the Side, 

Track address and sector 





3385* 


address for the First block requested by the user 





3386* 









3387* 


Enter. 

A1 - device 

table address 





3386* 



D3 - block 

iddress 





3389* 









3390* 


Eiit: 

DO. bit - side flag 





3391 * 



D3.W - track 

ddress 





3392* 



D4.W - sector 

address 





3393* 





UGC 

4280 



3394* 

FDcIcTS 

clr.l 

dO 


UOE 

3229 

6736 


3395* 


■ove w 

CPfbps(Al),Di 

get bytes per sector 

1612 

48C3 



3396* 


eit.l 

d3 

clear the upper 16 bits of d3 

16H 

2E3C 

0000 

0200 

3397* 


■oie . 1 

8BLKS2,d7 


161A 

8EC1 



3398* 


diTU 

dl,d7 


161C 

C6C7 



3399* 


BOlO 

d7,d3 

absolute sector adrs to d3 

16 IE 

2E03 



3400* 


•ofe. 1 

d3,d7 


1626 

4244 



3401* 


clr -w 

d4 

■ake sure that upper byte is 00 

1622 

1829 

0738 


3402* 


■ove b 

CPfspt(Al),d4 


1626 

8EC4 



3403* 


diva 

d4,d7 


1628 

3607 



3404* 


■ove.w 

d?,d3 

absolute track adrs to d3 

162A 

4847 



3405* 


swap 

d7 


162C 

1829 

0738 


3406* 


■ove .b 

CPfofst(aU.d4 

get first sector offset 

1630 

4884 



3407* 


eit w 

d4 

* 

1632 

0847 



3408* 


add.w 

d7,d4 

get sector address 





3409* 

, — - 

bcir 

ILCFLPSDl.dO 

select side 0 (already 

1634 

1E29 

0739 


3410* 


■ove .b 

CPftps(Al),d7 

get tracks per side 

1638 

4867 



3411* 


eit w 

d? 

e 

163A 

8647 



3412* 


CBp.W 

d?,d3 

is track on side 0* 

163C 

6016 



3413* 


blt.s 

FDclcT9 

yes, return 

163E 

flC2? 

0001 

073A 

3414* 


cBpi .b 

•l.CPfspd(al) 

is there a side 1* 

1644 

670A 



3415* 


beq .s 

FDclcT8 

no, report error 

1646 

08CO 

0000 


3416* 


bset 

«LCFLPSOl,D0 

select side 1 

164A 

9647 



3417* 


sub w 

d7,d3 

update track address 

164C 

8647 



3418* 


CBp.W 

d7,d3 

is track on side 1? 

164E 

6004 



3419* 


bits 

FDclcT9 

yes, return 





3420* 





1650 

6000 

0186 


3421* 

FDclcTS 

bra 

FDEblck 

indicate block noBber error 





3422* 





1654 

4247 



3423* 

FDcIcT9 

clr.w 

d7 

indicate no error 

1656 

4E75 



3424* 


rts 


return 


342S* 
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US8 

USi 

use 

1U2 

U44 

Hii 

UU 

UiA 

lUE 

1670 

1674 

U7A 


U7C 

167E 

1680 

1682 

1684 

1686 

168A 

16BE 

1690 

1692 

1696 

169A 

169E 


16A0 

16A2 

16A6 

16A8 

16AC 

16AE 




3427* 






3428* 

FDincTS -- update the sector address by one. If it was the lasi 



3429* 

sector on the track 

then update the Track adts by 



3430* 

one. If it was the 

last track then update the side 



3431* 

in 

the Local couand reg and DO and restore track t( 



3432* 






3433* 

Efit: 

NE - error and 07 has error code 



3434* 


EQ - successful 

update D7 : 0 



343S* 




S244 


3436* FDincTS iddq.w 

• l.d4 

iincrenent sector nuiber 

1E29 

0738 

3437* 

■ove b 

CPfspt(Al).d7 

;get last sector nuiber * 1 

DE29 

073B 

3438* 

add.b 

CPfofst(Al),d7 

,» 

B807 


3439* 

cip . b 

d7,d4 

;are we past last sector? 

6 CO 4 


3440* 

bge. s 

FDincTl 

,yes, go to neit track 

4247 


3441* 

clr.w 

d7 

, show successful 

6042 


3442* 

bra. s 

FDincT9 

.return 



3443* 




1829 

073B 

3444* FDincTl lofe.b 

CFfofst(Al),d4 

.reset sector nuiber 

4884 


3445* 

eit .w 

D4 

; * 

1E29 

0739 

3446* 

■ore.b 

CPftps(Al>,d7 

.get tracks per side 

0C29 

OOOS 

073C 3447* 

empi .b 

IDTaS,CPftyp(al) 

;is this an Apple floppy drive? 

6724 


3448* 

beq. s 

FDincTS 

iyes, process it 



3449* 

i 





3450* 

Corvus 8" floppy drive 



3451* 

i 



B607 


3452* 

cap.b 

d7,d3 

iare we past last track on side? 

6C10 


3453* 

bge.s 

FDincT2 

iyes, go to neat side 

S243 


3454* 

addq.w 

*l.d3 

(increient track nuiber 

612C 


3455* 

bsr .s 

FDwRdy 

iwait tor ready or tiieout 

6626 


3456* 

bne. s 

FDincT9 

.return if tiieout error 

6100 

ODBC 

3457* 

bsr 

FDccSin 

istep in 1 track 

6100 

012A 

3458* 

bsr 

FDskSta 

.check seek status 

601C 


3459* 

bra .s 

FDincT9 

ireturn 



3460* 




4243 


3461* FDiBcT2 clr.w 

d3 

.reset track nuiber 

08C0 

0000 

3462* 

bset 

OLCFLPSDl.DO 

.Select side 1 

1S40 

0000 

3463* 

■ove.b 

D0,LCMDR(A2> 


6100 

007A 

3464* 

bsr 

FDrst 

itestore to track 0 

600C 


3465* 

bra.s 

FDincT9 

i return 



3466* 






3467* 

; Apple 

5” floppy drive 




3468* 




B607 


3469* FOincTS csp.b 

d7.d3 

iare we past last track on side? 

6COO 

0134 

3470* 

bge 

FDEblck 

iyes, report error 

S243 


3471* 

addq.w 

IM3 

iincreient track nuiber 

6100 

072E 

3472* 

bsr 

ADccSin 

.step in 1 track 



3473* 



, 

4A47 


3474* FDincT9 tst.w 

d7 

.set return condition codes 

4E75 


3475* 

rts 


ireturn 



3476* 
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3478* . 

347?* , FDwRdr - WAIT UNTIL FDC SAYS DRIVE IS READY OR 
3480* , TIKE OUT (NOT MORE THAN 1 SECOND) 

3481* , 





3482* 

; 

Eiit: 

NE = timed oat D7 has erioi result 




3483* 

, 


EQ :: leadf <D7 « 0) 





3484* 

, 





00000004 

3485* 

FDttoHi 

equ 

4 

SHOULD BE AT LEAST I SECOND 


00007FFF 

3486* 

FDtaoLo 

eq« 

67FFF 

* 




3487* 





UBO 

4287 


3488* 

FDwRdy 

CLR.L 

D7 


UB2 

43A7 

0600 

3489* 


HOVEM.V 

D5-D6,-(SP) 

SAVE D6 AND D5 

UB& 

3A3C 

7FFF 

3490* 


HOVE .V 

iFDtmoLo,D5 


16BA 

3C3C 

0004 

3491 * 


MOVE.V 

IFDtmoHi,D6 





3492* 





1 6 BE 

082A 

0007 0010 

3493* 

FDwRdyl 

BTST 

ISNOTRDY,FDCSTRR(A2) 

IS FLOPPY READY 

14C4 

57CD 

FFF8 

3494* 


DBEQ 

DS.FDwRdyl 

DO UNTIL {FLOPPY READY) OR (TIME OUT) 

UC8 

57CE 

FFF4 

3495* 


DBEQ 

D6,FDwRd;i 


16CC 

6704 


3496* 


BEQ.S 

FOwRdy? 

DIDN'T TIHE OUT 

UCE 

3E3C 

FFEC 

3497* 


MOVE.V 

IRNOTRDY,D7 





3498* 





UC2 

4C9F 

0060 

3499* 

FDwRdr9 

HOVEH.V 

(SP)«,D5-D6 


1404 

4A47 


3500* 


TST V 

D7 

SET CONDITION CODES - NE MEANS ERROR 

UD8 

4E75 


3501 * 


RTS 


return 


3502* 
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3S04* 

; 






3S0S* 

i FDscek - 






3S06* 

, 






3507* 

i It is assoted 

that TRACK REG contains the noBbec ol the tr 




3S08* 

; oi the cofient position of 

the read write Head 




3509* 

; 






3510* 

, Enter: 

03. V - Seek 

track address 




3511* 

; 




00000004 

3512* 

FDrcSk equ 

4 

.seek retry count 




3513* 




1608 

61D4 


3514* 

FOseek BSR S 

FOwRdr 

.WAIT FOR READY OR TIMED OUT 

liOC 

U2A 


3515* 

BHE.S 

FDseek9 

JIHED OUT ERB 

UOE 

UOO 

0074 

3516* 

BSR 

FOccSk 


16E2 

UOO 

0002 

3517* 

BSR 

FDskSta 

.check seek status 

UEi 

6720 


3518* 

BEQ.S 

FOseek9 

.there is NO error 

UE8 

3F0S 


3519* 

BOfe.w 

d5,-(sp) 

;save dS 

UEA 

3A3C 

0004 

3520* 

Bore .w 

»r0tcSk,D5 





3521* 




16EE 

61C0 


3522* 

FOseekl BSR.S 

FOwRdg 

.WAIT FOR READY OR TIMED OUT 

UFO 

6614 


3523* 

BNE.S 

FDseekB 

.TIMED OUT ERR 

UF2 

6140 


3524* 

BSR.S 

FOccRst 


18F4 

61BA 


3525* 

BSR.S 

FOwRdf 

;WAIT FOR READY OR TIMED OUT 

UFA 

660E 


3526* 

BNE.S 

FOseekS 

.TIMED OUT ERR 

UFI 

61SA 


3527* 

BSR.S 

FDccSk 


UFA 

0807 

0004 

3528* 

btst 

Isseekett,d7 


UFE 

57CD 

FFEE 

3529* 

DBEQ 

dS, FOseekl 

.try until no seek error or 




3530* 



.no Bore retries 

1702 

6100 

00B2 

3531* 

BSR 

FOskSta 

.check seek status 




3532* 




170< 

3A1F 


3533* 

FOseekS Bote.w 

(sp)i ,d5 





3534* 




1708 

4A07 


3535* 

FDseek9 TST.B 

07 

.set return condition code 

170A 

4E75 


3536* 

RTS 


. return 


3537* 
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3539» 







3540* 

FDistV — Restore the floppy to track 0 




3541* 


It 

eiits when it has successfully restored the floppy to 




3542* 


track 0 or when the retry coant has eihausted. 




3543* 


Then it calls the FDswSta roatine to analyse statas. 




3544* 


Note V in FDswSta. It looks at VRprot bit of FDCSTRR. 




3545* 




170C 

18E7 

0202 

3546* FDrstW 

to tea. 

1 a6/d6.<(sp} 

1710 

1DFA 

0098i 

3547* 


lea 

FDswSta, a6 ; 

17H 

6008 


3548* 


bra. s 

FOrstO 




3549* 







3550* 







3551* 

FOrst 

— sane as FDrstV eicept no V there. 




3552* 


It 

does not look at Write protect statas bit in FDCSTRR. 




3553* 




17U 

1BE7 

0202 

3554* FDrst 

•ovei. 

1 a6/d6,-(sp) 

171A 

1DFA 

009At 

3555* 


lea 

FOskSta,a6 




3556* 




171E 

3C3C 

0004 

3557* FDislO 

love w 

14, d6 




3558* 




1722 

616C 


3559* fDtstl 

BSR.S 

FDwRdy ,VAIT FOR READY OR TIMED OUT 

1721 

6608 


3560* 


BNE.S 

FDrst2 , TIMED OUT ERR 

1726 

6 IOC 


3561* 


bsr . s 

FOccRst 

1720 

1E96 


3562* 


jsr 

(a6) 

172A 

57CE 

FFF6 

3563* 


dbeq 

d6,FDrstl ;do until (saccessful) or (tried enough) 




3564* 




172E 

1CDF 

4010 

3565* FDist2 

■ovei. 

1 (sp)t,a6/d6 i 

1732 

1E75 


3566* 


rts 

.return 




3567* 
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3569* 

3570* 

; ttl«« 

TYPE 

COMMAMDS ***** 

00000007 

3571* 

3572* 

FDCrst 

ego 

CRESTORE+F5TPRTl5ms4FVERIFY 

00000035 

3573* 

FDCstp 

ego 

CSTEP^FSTPRT6is«FVERI FYf FUpO 1 1 r k 

00000055 

3574* 

FDCstptn 

ego 

CSTEPlK4F5TPRT6ns+FVERIFYfFUpdttrk 

00000075 

3575* 

FDCstpOt 

ego 

C5TEPOUT+FSTPRT6n5+FVERIFY+FUpdttrk 

00000015 

3576* 

FDCseek 

ego 

CSEEK^FSTPRTdastFVERIFY 


3577» ; 

3S7t* , FDccRst — bring (he iloppf back to track 00 
3579* , Then set the FDCTRRR = 0 






3580* 

; Stepping poises ate given 

at the rate specified in cad 





3581* 

, 


1734 

157C 

0007 

0010 

3582* 

FDccRst move.b IFDCist , FDCCKDR(A2) 

tissue eouand 

173X 

602C 



3583* 

bca.s FDnRdy 

.wait for not ready 





3584* 

; 






3585* 

; FDccStp - FDCTRRR+/-1 — > FDC7RKR 






3586* 

, 


173C 

157C 

0035 

0010 

3587* 

FDccStp aove.b IFDCstp,FDCCH0R(A2) 

; issue eouand 

1742 

6024 



3588* 

bta.s FDnRdy 

.wait for not ready 





3589* 







3590* 

i FDccSin - FDCTRRR*! — ) FDCTRRR 






3591* 



1744 

157C 

0055 

0010 

3592* 

FDccSin sove.b IFDCstpIn,FDCCKDR(A2) 

.issue eouand 

174A 

601C 



3593* 

bras FDnRdy 

iwait for not ready 





3594* 







3595* 

, FDccSot - FDCTRRR-1 -) FDCTRRR 






3596* 



174C 

157C 

0075 

0010 

3597* 

FDccSot aove.b IFDCstpOt,FDCCHDR(A2) 

.issue eouand 

1752 

6014 



3598* 

bta.s FDnRdy 

.wait for not ready 





3599* 

; 






3600* 

, FDccSk -> issue a seek coaiand. If 

there is a seek error. 





3601* 

; flip the density flag in DO and try again 





3602* 

i 


1754 

3F0S 



3603* 

FDccSk love.w d5.-(sp) 

.save dS 

1756 

1543 

0016 


3604* 

aove.b D3,FDCDATR(A2) 

;ioad the desired TRACK adr 

17SA 

7A02 



3605* 

Boveg 82, d5 






3606* 



175C 

157C 

0015 

0010 

3607* 

FDccSkl Bove.b IFDCseek,FDCCNDR(A2) 

.issue eouand 

1762 

6104 



3608* 

bst.s FDnRdy 

.wait for not ready 





3609* 

i btst 8sseekert,d7 






3610* 

, beg FDcc5k2 

.no seek error 





3611* 

; bchg ILSFMMFM,d7 

.flip the density bit 





3612* 

, — - dbf d5. FDccSkl 

. S$i WE MAY HAVE TO FLIP i 





3613* 



1764 

3A1F 



3614* 

FDccSkX Bove.w (sp)*,d5 

iget back dS 

1766 

4E75 



3615* 

rts 

.return 


3616* 
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3ua» , 

3U9* , FDnRdr - WAIT UNTIL FOC SAYS DRIVE IS NOT BUSY OR TIKE OUT 
3620* , 

3i2i* , Eiit; D7 : controller status register (FOCSTRR) 

3622* , 


1768 

48A7 

0600 

3623* 

FDnRdf 

■ofei.vr d5-06,-(SP) 



176C 

3C3C 

7FFF 

3624* 


■ore w IFDttoLo,d6 



1770 

3A3C 

0002 

3625* 


■ore.w 12, dS 

, add 3*88000 iterations 





3626* 





1774 

082 A 

0001 0000 

36 27* 

FOnRdrl 

btst iLSINT,LSTRR(a2> 

,is it busy 


1776 

56CE 

FFFB 

3628* 


dbNE d6,FDnRdyi 

,DO UNTIL (not busy) or (no lore 

retries) 

177E 

SeCD 

FFF4 

3629* 


dbNE dS, FDnRdr I 

,DO UNTIL (not busy) or (no sore 

retries) 




3630* 





I7 8i 

4C9F 

0060 

3631 * 

FDnRdy2 

aofea.w {SP)t,d5-d6 



1786 

1E2A 

OOIG 

3632* 


HOVE. a FOCSTRR(A2),D7 

;CET CONTROLLER STATUS 


178A 

4E75 


3633* 


RTS 

.return 



3634* 



rile. 
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3434* 







3437* 

; Check states 

subroutines 





3438* 







3439* 

, Eiit: 

D7 - lORESULT code 




3440* 




178C 

1E2A 

0010 

3441* 

FDtdSta aove.b 

FDCSTRR(A2),d7 

iread the status 




3442* 

; bta.s 

FDiwSta 

, 




3443* 



, 




3444* 

.FDwtSta aote. 

FDCSTRR(A2),d7 

,read the status 




344S* 

. btst 

ISVRFROT.d? 

, 




3444* 

; boas 

FDEpiot 

, 




3447* 

; btst 

ISVRFAULT.d7 

, 




3448* 

, bon.s 

FDEheit 

, 




3449* 




l?9fl 

0807 

0003 

3450* 

FDrwSta btst 

tSCRCERR,d7 


1794 

4442 


3451* 

bon. 5 

FDEcrc 


1794 

0807 

0004 

3452* 

btst 

fSRNF.d? 


179X 

4440 


3453* 

bon. s 

FDEtnf 





3454* 




179C 

0807 

0000 

3455* 

FDtwStl btst 

iSBUSY,d7 


17A0 

4440 


3454* 

bon.s 

FDEbnsy 


17A2 

0607 

0007 

3457* 

btst 

ISKOTRDY,d7 


17A4 

4444 


3458* 

bon.s 

FDEntdf 


17A8 

4028 


3459* 

bras 

FDokSta 

,no error, return 




3440* 




17AA 

1E2A 

0010 

3441* 

FDstfSta tofe.b 

FDC5TRR<a2),d7 


17AE 

0807 

0004 

3442* 

btst 

«SVRPROT,d7 


17B2 

443C 


3443* 

bon.s 

FDEprot 


17B4 

4004 


3444* 

bia s 

FDskStl 





3445* 




17B4 

1E2A 

0010 

3444* 

FDskSta Bove.b 

FDCSTRR(a2),d7 





3447* 




17BA 

0807 

0004 

3448* 

FDskStl btst 

ISSEEXERR,d7 

iseek error? 

17BE 

4434 


3449* 

bon.s 

FDEseek 

.SEEK ERROR IK RSLT CODE 

17C0 

0807 

0003 

3470* 

btst 

ISCRCERR,d7 


17C4 

4412 


3471* 

bon.s 

FDEcrc 


17C4 

0807 

0000 

3472* 

btst 

tsbosf ,d7 


17CA 

4434 


3473* 

bon.s 

FDEbosy 

.HARDWARE ERROR 

17CC 

0807 

0007 

3474* 

btst 

•SNOTRDY,d7 


17D0 

443C 


3475* 

bon. s 

FDEnrdy 





3474* 




17D2 

4247 


3477* 

FDokSta cir.w 

d7 

iindicate no error 




3478* 




17D4 

4A47 


3479* 

FDerSta tst.w 

d7 

.set return condition code 

1704 

4E75 


3480* 

tts 


.return 




3481* 






File 


CC PROM, TEXT 


Fige 94 


17D8 



3683* 

FDEcrc 



i error — CRC 

i?D8 

3E3C 

FFFF 

3684* 

FDEblck 

love w 

tRBDBLX.d? 

, error -- invalid block nusber 

.7DC 

6CFi 


3685* 


bra .s 

FDerSta 

,set condition code and return 




3686* 





!7DE 

3E3C 

FFFE 

3687* 

FDEonit 

■ove ,w 

IRBDUNT,d7 

.error — invalid unit nuBber 

17E2 

60F0 


3688* 


bias 

FDerSta 

iSet condition code and return 




3669* 





17E4 

3E3C 

FFFD 

3690* 

FOEopcd 

■ove.w 

IRBDOFCO,d7 

.error -- invalid op code 

i?E8 

60EA 


3691* 


bra .s 

FDerSta 

.set condition code and return 




36 92* 





1 7 EA 

3E3C 

FFFC 

369 3* 

FDEherr 

Bove .w 

•RHVRERR,d7 

.error -- hardware 

1?E£ 

80E4 


3694* 


bra s 

FDerSta 

.set condition code and return 




3695* 





i/FO 

3E3C 

FFFO 

3696* 

FOEprot 

Bove .w 

IRVRPROT,d7 

.error -- write protect 

17F1 

^ODE 


3697* 


bra . s 

FDerSta . 

.set condition code and return 




3698* 





I7f6 

3E3C 

FFEi 

3699* 

FDEseek 

Bove w 

IRSEEKERR.d7 

.error -- seek 

17FA 

iODS 


3700* 


bra. $ 

FDerSta 

.set condition code and return 




370 1 * 





17FC 

3E3C 

FFED 

3702* 

FDEinf 

Bove w 

IRRNF,d7 

;erroi -- record (sector) not found 

I8G0 

6002 


3703* 


bra s 

FDerSta 

.set condition code and return 




3704* 





1802 

157C 

0008 0010 

3705* 

FDEbussr 

Bove .b 

ICFRCIHT+riNTIMM,FDCCMDR(A2) 

1808 

3E3C 

FFEE 

3706* 


Bore w 

tRBUSy,07 

.error -- busy 

180C 

iOCi 


3707* 


bra s 

FDerSta 

.set condition code and return 




3708* 





180E 

3E3C 

FFEC 

3709* 

FOEnrd 7 

Bove .w 

♦HNOTRDY.d? 

.error -- not ready 

1812 

60C0 


3710* 

3711* 


bra . s 

FDerSta 

.set condition code and return 
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3713* 

include 'CC. FROM. AD' 

, Apple floppy dcivei 






3714* , 








3715* , File. 

CC. PROM AD. TEXT 







3718* , Date: 

03-Sep-82 







3717* ; Bf. 

Ravi Luthia 







3718* , 

Keith Ball 







3717* , 








3720* 








3721* , 








3722* , 

About -- Apple floppy disk boot pcocessinq 






3723* , 




18H 

IICO 

0700 


3724* 8boot 

Bove.b dO.CPbtslot .w 

,set boot slot nuBoet 


1818 

IICO 

0708 


3725* 

Bove.b dO.CFosslot w 

,set OS slot noBber 






3728* . 

clr.b CPbtstvf.w 

,set boot seivet nuBbec 

(already 8) 

181C 

487K 

0038 + 


3727* 

pea ADblUO 

,set boot disk blk i/o subi 

p c i n t e r 

1820 

21DF 

0714 


3728* 

Bove.l (sp)+,CFblkio .w 

,« 


1824 

4678 

0058+ 


3727* 

pea AOseclO 

,set boot disk sector i/o subt pointei 

1828 

21DF 

0718 


3730* 

Bove.I (sp)t,CPdslcio .w 

,» 






3731* , 

Boveq 80, dO 


(already 0) 





3732* ; — - 

Bove b dO.CPossrvr w 

,set OS server number 

(already 0) 





3733* , 

Bove.w dO ,CPosblk+l .w 

,set OS voluBe block nuaber 

(already 0/ 





3734* . 

aove.b dO.CPosdrv w 

,set OS voluae drive nuBber 

(already C) 

1B2C 

8100 

0280 


3735* 

bst ADI5sssd 

,set up floppy constants 


1830 

8100 

0ZC2 


3738* 

bst AOinit 

, initialise floppy drive 


1834 

8D1E 



3 737* 

blt.s Aboot70 

,just return if error 






3738* 




1838 

207C 

0008 

EOOO 

3739* Abootl 

Bove.l 8USRbase,aO 

,get block butter pointer 


183C 

7000 



3740* 

BOveq 10, dO 



183E 

3300 



374 1* 

Bove.w dO,dl 



1841} 

7A32 



3742* 

Boveq iOskRead,dS 

,get read block function code 





3743* 


, 


1842 

8112 



3744* 

bsr.s ADblklO 

,read block 1 of boot code 


1844 

800E 



3745* 

blt.s Aboot90 

iiust return if error 


1848 

810E 



3748* 

bSE.s ADblklO 

,read block 2 of boot code 


1848 

8088 



3747* 

bits Aboot70 

,}ust return if error 


184A 

2Q7C 

0808 

EOOO 

3748* 

Bove.I IUSRbase,aG 

;get block buffet pointer 


18S0 

DOFC 

OOOC 


3747* 

adda.w 112, aO 

,get pointer to boot code 






3750* 


; 


1854 

4E75 



3751* Aboot70 

rts 

, return 






3752* 
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3754* 
3755* 
3756* 
3757* 
3758* 
3759* 
3760* 
376 1* 
‘3762* 
3763* 
3764* 
3765* 
3766* 
3767* 
3768* 
3769* 
3770* 
3771* 
3772* 
3773* 
3774* 
3775* 
3776* 
3777* 
3778* 
3779* 
3780* 


PHILOSOPHY: The user fiews floppy as a set of 512 byte blocks. 

The driver thea translates this block to track address, sector 
address, side. 

It then Bakes the necessary number of request to read sectors. 
Partial sectors are not read or written, the excess is ignored. 
Sector length of an Apple floppy is 256 bytes. 

RESTRICTION: Bytes per sector must be exact divisor of 512 (block sixe). 

The block address must be less than (2**15) /bytes per sector, 
so that when sector is formed, it fits in the 03. V. 


ADblklO - Read/Vrite an Apple floppy disk block subroutine 

Enter: AO.L - Buffer address 

DO.V - Block number 
01 .V - Drive number 

DS.V - Read (632) or Write ($33) command 


Exit: AO.L - Next free location in buffer 

DOW - Updated block number 
07. V - lORESUtT 

All other registers are preserved. 


1656 

48E7 

FE7E 

3781* 

AOblklO MOVEK.L 

D0<06/Ai-A6,-(sp) 

save registers 

185A 

343C 

0 200 

3782* 


MOVE.W 

•BLKSZ,D2 

BLOCK SIZE IN BYTES 

18SE 

3600 


3783* 


MOVE.V 

DO, 03 


1860 

0C45 

0033 

3784* 


CMPI.V 

IDskVrit,05 


1864 

6606 


3785* 


BNE.S 

AObiol 


1866 

6100 

FF7C 

3786* 


BSR 

FOEopcd 

only do reads 

186A 

6008 


3787* 


BRA.S 

AObio9 

return 




3788* 





186C 

6100 

02A2 

3789* 

AObiol 

BSR 

ADrdwr 


1870 

6100 

0272 

3790* 


BSR 

ADmtrof 

TURN THE MOTOR OFF 




3791* 





1874 

4CDF 

7E7F 

3792* 

ADbio9 

MOV EH. L 

(sp)v,D0-O6/Al-A6 


1878 

5240 


3793* 


AODQ.V 

11,00 

INC BASE BLOCK 

187A 

4A47 


3794* 


TST.y 

07 

:SET CONDITION CODES 

187C 

4E75 


3795* 


RTS 


return 
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3798* 

, 







3799* 

, ADsctIO - Read/Write an Apple floppy 

disk sector 




3800* 








3801* 


Enter : 

AO .L - Buffer address 





3802* 



D1 .V - Bytes per sector 

(256 tot Apple) 




3803* 



D3.V - Track number 

(range. C-35) 




3804* 



D4.V - Sector number 

(range. 0-15) 




3805* 



D5.V - Read (132) or Write (133) command 




3806* 








3807* 


Eiil 

D7.W - lORESULT 





3808* 








3809* 


All other registers are preserved. 




3810* 





187E 

QC4S 

0033 

3811* 

ADsecIO 

CMPI.W 

IDskVrit,D5 

.make sure cmd is a read cmd 

1882 

a04 


3812* 


BNE.S 

ADsciol 

at is 

1884 

6000 

FF5E 

3813* 


BRA 

FDEopcd 

, i t isn't, return error 




3814* 





1888 

48E7 

FEFE 

3815* 

AOsciol 

KOVEM.L 

D0-D6/A0-A6,-(sp) 

,save registers 

188C 

6100 

FD52 

3816* 


BSR 

FDgetadr 

,set address regisiets 




3817* 




,A1 = ptr to device description info 




3818* 




;A2 = ptr to slot controller registers 




3819* 




,A3 = ptr to slot static RAN 

1890 

6100 

0278 

3820* 


BSR 

ADmtron 

, turn on motor 

1894 

6100 

Q4D6 

3821* 


BSR 

ADseek 

,get to track specified by D3 V 

1898 

6604 


3822* 


BNE.S 

ADscio9 

, if error , return 

189A 

6100 

02B4 

3823* 


BSR 

ADsecR 

itead sector specified by D4 W 




3824* 





189E 

6100 

0264 

3825* 

ADscto9 

BSR 

ADmtrof 

, turn off motor 

18A2 

4CDF 

7F7F 

3826* 


MOVEN.L 

(sp)t,D0-D6/A0-A6 

.restore registers 

18Ai 

4A47 


3827* 


TST.V 

D7 

.set condition codes *kb 9/3/82* 

18A8 

4E75 


3828* 


RTS 


, return 




3829* 
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383 1* 






3832* 

, index 

into 

static HAH to routines 


3833* 

, 




OOOOOOH 

3834* 

SRAMln4 

equ 

AOrd4E-ADrd4B 


0000081C 

3835* 

SRAHIn5 

equ 

ADrd5E-ADid5B 


00000020 

3336* 

SRAMln6 

equ 

A0rd6E-A0rd6B 


O0GO9O22 

383 7* 

SRAHlnw 

equ 

AOwaitE-ADwaitB 



3838* 






3839* 

,RAHrd4 

equ 

0 

,ACrd4 routine (READ) 


3840* 

,RAHrd5 

equ 

SRAHrd4>3RAHln4 

,AOtd5 routine (READ) 


384 1 * 

,RANrd6 

equ 

SRAHrd5fSRAHin5 

,ADrd6i routine (READ) 


3842* 

,RANwt 

equ 

3RAHrd6+SRAHln6 

.ADwaitB routine (SEEK) 


3843* 

.RAHend 

equ 

SRAHwt iSRAHlnw 

,Hust be <= $100 


3844* 





00000900 

3845* 

SRAI4rd4 

equ 

$00 

,ADrd4 routine (READ) 

0OOOGQ4O 

3846* 

SRAMrd5 

equ 

$40 

,ACrd5 routine (READ) 

00000010 

3847* 

SRAHrd6 

equ 

$80 

,ADrd61 routine (READ) 

OOOOOOCO 

3848* 

SRAHwt 

equ 

$C0 

, ADwaitB routine (SEEK) 


3849* 






3850* 

, FRENIE16 (outine nibliies the 

user data into 6/2 forsat 


3851* 

, and places 

in Nbufi and Nbuf2 

buffers 


3852* 





0900OCO0 

3853* 

NBUFl 

equ 

CPiobuf 

.Hl/ST BE AT LEAST 258 BYTES 

DOOO0EO2 

3854* 

NBUF2 

equ 

NBUFU258 

,$60 HEX BYTES 


38 55* 






3856* 

, AREA FOR 7 

4E TEKPORARIES AND OTHER VARIABLES 


3857* 

, 




9000CE62 

3858* 

APL5VAR 

equ 

NBUF2f$60 



3859* 






3860* 

, 1) for 'AOccSK' suhrootine 



386 1* 





OOGOOOOO 

3862* 

TRKCNT 

equ 

0 


00000001 

3863* 

PRIOR 

equ 

1 


00000002 

3864* 

TRAN 

equ 

2 


00000803 

3865* 

CURTRX 

equ 

3 



3866* 

; 





3867* 

, 2) for 'AOccRd' 



3868* 





00000004 

3869* 

csuard 

equ 

CURTRK+I 



3870* 






3871* 

, 3) FOR 'ADrdad' 



38 72* 

, 




OOOOOE82 

3873* 

AMBUF 

equ 

APL5VARf$20 

.NEED AT MAX. 32 BYTES FOR TEHP 


3874* 






3875* 

, Indices to 

fields in AHBUF 



3876* 

, 




90000000 

3877* 

ANfOl 

equ 

0 

.voiuBe na»e in adr nark 

00000001 

3878* 

AHtrk 

equ 

AHvoItl 

, track 1 in adr nark 

00000002 

3879* 

ANsec 

equ 

AHtrkfi 

;sector t in adr >ark 

00000003 

3880* 

AKcbkst 

equ 

AHsectl 

.check SUB in adr Bark 


3881 * 
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3883* , 

3884« i NIBL table 
3885* , 

3888* , KIEL boiler is osed to translate tost signilicant 6 bits ol a byte into 
3887* ; 8 bits ol disk data. PRCMIBLE18 rootine partitioned 8 bits ol osei data 
3888* , into 8/2 loriat. The 8 bit data is lelt justified, thos every 4th entry 
3889* ; ol the table is used in nibliiing. Every ionrth entry contains the nible 
3890* , code lor a 8 bit left justified data nibble. 8 bits of data can take a 
3891* ; value fro* 0 to 3F. 

3892* , 

3893* i Interspersed in then is the denible code for the lower 2 bits ol data byte 
3894* ; offset w.r.t. DNIBL2, DNIBL3, 0NIBL4. These values ate used to get the 
3895* , least significant 2 bits ol oset data while reading data ftoi floppy 
3898* , 


18AA 

00 






3897* 


DATA. 

B 

0 

.EVEN OUT 

18AB 

00 






3898* 

DNIBL2 

DATA 

E 

0 


18AC 

00 






3899* 

DNIBL3 

DATA 

B 

0 


18AO 

00 






3900* 

DNIBL4 

DATA 

B 

0 









3901* 






18AE 

96 

02 

00 

00 

97 

01 

3902* 

NIEl 

data . 

b 

$98,2,0, 

0,$97,l,0,0,$9A,3,0,0,$9B,0,2,fl 

18B4 

00 

00 

9A 

03 

00 

00 







18BA 

9B 

00 

02 

DO 









18BE 

9D 

02 

02 

00 

?E 

01 

3903* 


data. 

b 

$9D,2,2, 

0,$9E,l,2,0,$?F,3,2,0,$A8,0,l,0 

18C4 

02 

00 

9F 

03 

02 

00 







18CA 

A6 

00 

01 

03 









18CE 

A7 

02 

01 

00 

AB 

81 

3904* 


data . 

b 

$A7,2,1, 

0,$A8,1,1,0,$AC,3,I,0,$AO,0,3,0 

18D4 

01 

03 

AC 

03 

01 

00 







18DA 

AO 

00 

63 

60 









18DE 

AE 

02 

03 

00 

AF 

01 

3905* 


data. 

b 

$AE,2,3, 

0.$AF,i,3,0,$B2,3,3,0,$B3,0,0,2 

18E4 

03 

00 

B2 

03 

03 

00 







18EA 

B3 

00 

00 

02 









18EE 

E4 

02 

00 

02 

B5 

01 

3908* 


data . 

b 

$B4,2,0, 

2,$B5,l,C,2,$B8,3,G,2,$B7,Q,2.2 

18F4 

00 

02 

B8 

03 

00 

02 







18FA 

B? 

00 

02 

02 









18FE 

B9 

02 

02 

02 

BA 

01 

3907* 


data . 

b 

$B9,2,2, 

2,$BA,l,2,2,$BB,3,2,2,$EC,3,i,2 

1904 

02 

02 

BB 

03 

02 

02 







190A 

BC 

00 

01 

02 









190E 

BD 

02 

01 

02 

BE 

01 

3908* 


data . 

b 

$BD,2,1, 

2,$BE,l,l,2,$Br,3,i,2,$CB,Q,3,2 

1914 

01 

02 

BF 

03 

01 

02 







191A 

CB 

00 

03 

02 









191E 

CD 

02 

03 

02 

CE 

01 

3909* 


data . 

b 

$CD,2,3, 

2,$C£,l,3,2,$CF,3,3,2,$D3,fl,0,l 

1924 

03 

02 

CF 

03 

03 

02 







192A 

D3 

00 

00 

01 









192E 

D6 

02 

00 

01 

D7 

01 

3910* 


data 

b 

$08,2,0, 

l,$D7,l,0,l,$D9.3,0.i,$DA,0.2,l 

1934 

00 

01 

D9 

03 

00 

01 







193A 

DA 

00 

02 

01 









193E 

DB 

02 

02 

01 

DC 

01 

3911* 


data 

.b 

$OB,2,2, 

i,$OC,l,2,i,$DD,3.2,l,$DE,0.1,l 

1944 

02 

01 

OD 

03 

02 

01 







194A 

DE 

00 

31 

01 









194E 

DF 

02 

01 

61 

ES 

01 

3912* 


data. 

b 

$DF,2,1, 

l.$E5,l,l,l,$E8,3,l,l,$E7,0,3,l 

1954 

01 

01 

E8 

03 

01 

01 







19SA 

E7 

00 

03 

01 









195E 

E9 

02 

03 

01 

EA 

01 

3913* 


data 

b 

$E9,2,3, 

1,$EA,1,3,1,$EB,3,3,1,$EC,0,0,3 

1984 

03 

01 

CB 

03 

03 

01 
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196A 

EC 00 

0 0 0 3 





1 9 6 E 

ED 0 2 

GO 03 

EE 01 

3914* 


data. b 

1974 

00 03 

£F 03 

00 03 




19 :a 

F2 00 

0 2 0 3 





197E 

F3 02 

02 03 

F4 fli 

3915* 


data b 

1984 

02 03 

FS 03 

02 0 3 




198A 

Fo 00 

01 03 





198E 

f'’ 02 

01 03 

F9 01 

3914* 


data b 

19 9 4 

31 03 

FA 03 

Cl 03 




199A 

FB 0 3 

0 3 0 3 





1?9E 

FC 02 

0 3 0 3 

FD 01 

3917* 


da ta . b 

19A4 

03 0 3 

F£ 03 

03 0 3 




19 AA 

IF 00 

0 2 0 3 


3918* 







3919* 







39 2 0 * 

, NIBL 

table 





392 1* 



I'AE 

3 000 

GOOD 

OCOO 

39 22* 

DNIBL 

da ta w 

19B4 

00 00 

0 0 00 

0000 




19SA 

0000 

OOOG 

0 0 0 0 




ivCfl 

0 0 3 0 

00 0 0 

000 0 




I’Co 

0 000 

OCOO 

cooo 




19CC 

00 00 






19CE 

occo 

0 000 

000 0 

3923* 


data w 

19D4 

00 00 

00 00 

0 0 0 0 




19 DA 

0 0 00 

ocoo 

cooo 




19EC 

0 0 00 

0000 

000 0 




IVEfi 

0 00 0 

0 000 

0 0 0 0 




19 EC 

0 0 00 






19£E 

ocoo 

ocoo 

000 0 

39 24* 


data w 

19F4 

0000 

0 0 0 0 

0000 




19 FA 

0 000 

ocoo 

0000 




lAOO 

0000 

00 00 

0000 




1AC4 

•3000 

0 00 0 

0000 




lAOC 

ocoo 






lAOE 

CCCfl 

cooo 

coco 

3 9 2 5 * 


data .w 

1A14 

3000 

ocoo 

030 0 




lAlA 

0 030 

ocoo 

0000 




U20 

0 0 0 0 

oooo 

00 00 




1 Ala 

0000 

0 0 00 

000 0 




1 A2 C 

0000 






IA2E 

0 0 00 

0 000 

CQGO 

3924* 


da ta .w 

1A34 

0000 

0 0 00 

0000 




! A 3 A 

cooo 

oooc 

ocoo 




iA40 

0000 

0 0 0 0 


3 9 2 7 * 



1A44 

00 04 

9 8 9 9 

08 OC 

3928* 


data b 


;AU K 10 

;A4C 18 AO A1 A2 A3 392V* dati.b 

1A32 A4 A3 

1A34 IC 20 A8 A? AA 24 3930* diti b 

1A5A 28 2C 

1A5C 30 34 BO BI 38 3C 3931* 
lAU 4 0 44 


Page 100 

$ED,2,0,3,$EE,1,0,3,$EF,3,0,3, $F2,0,2,3 
5F3,2,2,3,5F4,l,2,3,$F5,3,2,3,$Fi,0,l,3 
$F7,2,l,3,$F9,i,l,3,$FA,3,l,3,$rB,0,3,3 
5FC,2,3,3,5FD,l,3,3,$FE,3,3,3,iFF,fl,2,3 

0,0, 0,0, 0,0,3, 0,0, 0.0, 0,0, 0,0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

0 , 0 , 0 , 0 , 3 , 0 , 0 , 0 , 0 , 0,0 

,94 HEX BYTES DISPLACEHEMT = 150 DECIMAL 
000,004, $98, $99,008, $0C,$9C, $10 

$14,$18,$A0,$A1,$A2,$A3,$A4,$AS 

$1C,$20,$A8,$A9,$AA,$24,$28,$2C 


data b $30, $34 , $B0, $B1 , $38, $3C, $40 , $44 
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iki\ 

48 

4C 

B8 

SO 

54 

58 

3932* 

da ta . b 

54B,$4C,$B8,$50,S54,$58,S5C,J80 

Ikik 

5C 

80 








IkU 

84 

88 

CO 

Cl 

C2 

C3 

3933* 

data b 

i84.$88,$C0,5Cl,5C2,$C3,iC4,5C5 

U72 

C4 

C5 








1A74 

C6 

C? 

C8 

C9 

CA 

8C 

3934* 

data.b 

$C8,iC7,$C8,iC9,SCA,$8C,iCC,$70 

1X7A 

CC 

70 








1A7C 

74 

78 

DO 

D1 

D2 

7C 

3935* 

data.b 

$74,$78,5DC,$Di,$D2,S7C,5D4.$D5 

1A82 

D4 

D5 








1A84 

80 

84 

D8 

88 

8C 

90 

3938* 

data.b 

380,S84,SD8,i86,18C,i90,i94,S98 

1A6A 

94 

98 








IA8C 

9C 

AO 

EO 

El 

E2 

E3 

3937* 

data.b 

$9C,$A0,$E0,$E1,$E2,$E3,$E4,}A4 

1A92 

E4 

A4 








1A94 

AB 

AC 

EB 

80 

B4 

B8 

3938* 

data.b 

;A8.$AC,1E8,$BG,$B4,IB8,$BC,$CC 

1A9A 

BC 

CO 








1A9C 

C4 

C8 

FC 

FI 

CC 

DO 

3939* 

data.b 

5C4,iC8,5f0,5n,8CC,5DQ,5D4,$D8 

1AA2 

D4 

D8 








1AA4 

DC 

EG 

F8 

E4 

E8 

EC 

3940* 

data b 

SDC,$E0,$F8,$E4,5E8,$EC,$Ffl,>F4 

lAAA 

Ffl 

F4 








lAAC 

F8 

FC 





3941* 

data.b 

$F8,5FC 


3942* ,it ends on even boondary 
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5944* 

3945* 

3944* 

3947* 

3948* 

3949* 

3950* 

.3951* 

3952* 

3953* 

3954* 

3955* 

3954* 

3957* 

3958* 

3959* 

3940* 

3941* 

3942* 

3943* 

3944* , Address bits ol Apple floppf controller to the address bits of CONCEPT 
3945* , 

00000002 3944* adOon eqa 2 

3947* , 

3948* , The following are the equates for the bits of the latch 
3949* , 


cooooooo 

3970* 

PHASEOFF 

eqo 

$0f0 

torn phase 0 OFF 

00000002 

3971* 

3972* 

PHASEON 

equ 

$04^ad0on 

turn phase 0 ON 

00000000 

3973* 

PHASEOOFF 

eqa 

iOtO 

phase 

0 off 

00000002 

3974* 

3975* 

PHASEOON 

eqo 

lOtadOon 

phase 

0 on 

00000004 

3974* 

PHASEIOFF 

equ 

M*4f0 

phase 

1 off 

00000004 

3977* 

3978* 

PHASE ION 

equ 

$l*4tad0on 

phase 

1 on 

00000008 

3979* 

PHASC20FF 

eqa 

$2*4+0 

phase 

2 off 

OOOOOOOA 

3980* 

3981* 

PHASE20N 

eqa 

$2*4+ad0on 

phase 

2 on 

ocoooooc 

3982* 

FHASC30FF 

equ 

$3*4+0 

phase 

3 off 

OOOOOOOE 

3983* 

3984* 

PHASE30N 

eqo 

$3*4+ad0on 

phase 

3 on 

00000010 

3985* 

MOTOROFF 

eqo 

$4*4+0 

motor 

off 

00000012 

3984* 

3987* 

NOTORON 

equ 

S4*4+ad0on 

motor 

on 

00000014 

3988* 

DRVOEN 

equ 

$5*4+0 

dtv 0 

enable 

00000014 

3989* 

3990* 

DRVIEN 

equ 

$S*4+ad0on 

drv 1 

enable 


Apple floppy controller equates 

These are the indei values corresponding to the base address of the slot 
calculated by FDgetadr subroutine 

Couands to the floppy are issued by setting or resetting the bits in the 
addressable latch of the type 74LS2S9. 

These bits can be set or reset by aaking a READ/VRITE reference to these 
addresses. In general, we take a read reference to the addresses assigned 
to these bits (indeied w.r.t Device Select addresses). 

For write operations, these bits are set/reset by making a write reference 

NOTE; 

The CONCEPT address bit A1 is tied to APPLE slot address bit ADO and 
farther BITO of Apple slot is used to turn on or off a bit in 74LS2S9. 
Thus, Apple addresses are 4 * CONCEPT addresses. 
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lAAE 40U« ADlSsssd 


lAAE 

6100 

FS3Q 


4017* 

bsr 

FDgetadr 

,set address registers 





4018* 



,A1 = ptr to device description info 





4019* 



,A2 = ptr to slot controller registers 





4020* 



,A3 = ptr to slot static RAM 

1AB2 

337C 

0118 

0734 

402 1* 

no (re .w 

INBLKSSD,CPfdvsi(Al) 

,set device site tti blocks 

1AB8 

337C 

0100 

0736 

4022* 

no (r e 

IBPSSISD,CPfbps(Al) 

, set bytes per sector 

lABE 

137C 

0010 

0738 

4023* 

nove . b 

ISCPT55D.CPfspt(Al) 

,set sectors per track 

1AC4 

137C 

0023 

0739 

4024* 

no?e . b 

fXKPSSSD.CPftpsiAl) 

,set tracks per side 

lACA 

137C 

3001 

073A 

4025* 

nove b 

tl,CPfspd(Al) 

,set sides per disk 

lADO 

4229 

073B 


4026* 

cit b 

CPfofst(Al) 

,sel first track offset 

1AD4 

137C 

0005 

073C 

4027* 

nove . b 

IDTa5,CPftyp(Ali 

,set floppy type 

lADA 

487A 

00084 


4028* 

pea 

ADilvtb 

,set interleave table pointer 

lADE 

235F 

0730 


4029* 

no ve . I 

(sp) + ,CFf inlv( Al) 

.* 

1AE2 

4E75 



4030* 

tts 


.retnrn 





4031* 

, 







4032* 

, Interleave table for Apple floppy disk 

drives 





4033* 

, 



1AE4 

00 02 

04 06 

08 OA 

4034* 

ADilvtb data.b 

50,52,54,56,58,5A,5C,5E, 

51,53.55,57,59,5B,5D,5F , Pascal 

IAEA 

OC OE 

01 03 

05 07 





lAFO 

09 OB 

00 OF 







4035* , 
4036* , 
4037* 


data.b $0 , $3 ,56 , $9 , $C . $F, $2, $5 , $8 ,IB, JE, 51 . $4, $7 ,$A, iO ,CF/M 
data.b $0 , $D, 5B, 59, 57 . 55 , 53, $l , 5E, $C, 5A. 58 , 56. 54, 52 , 5F , DOS Basic 
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IAF4 


1AF8 

lAFA 

lAFE 

IBOO 

1B02 


4039* , 

4040* , AOinit >• Initialise Apple floppf disk drive 
4041* ; 


4100 

FAEA 

4042* 

AOittit 

BSR 

PDgetadr 

,set address registers 



4043* 




,A1 s pointer to device description info 



4044* 




,A2 = pointer to slot controller register 



4045* 




,A3 : pointer to slot static RAH 



4046* 

,*KB 8/23/82* IN ROM DOESN'T NEED ROUTINES IN STATIC RAN 



4047* 


, MOVE WHITE CRITICAL 

CODE INTO THE STATIC RAM 



4048* 


, 





4049* 


MOVEM.L 

A4-A6 ,-(sp) 

;save registers 



4050* 







405 1* 


LEA 

AOrd4B.a4 

.BEGINNING OF CRITICAL AREA 



4052* 


LEA 

SRAMrd4(A3),a5 

.WHERE IT GOES 



4053* 


LEA 

ADrd4E,a6 

.AFTER CRITICAL CODE AREA 



4054* 


BSR S 

AObov 

.MOVE CODE 



4055* 







4056* 


LEA 

ADrd5B,a4 

.BEGINNING OF CRITICAL AREA 



4057* 


LEA ' 

SRANrd5(A3),aS 

.WHERE IT GOES 



4058* 


LEA 

ADrd5E,a6 

.AFTER CRITICAL CODE AREA 



4059* 


BSR.S 

ADiov 

.MOVE CODE 



4060* 







4061* 


LEA 

ADrd6B,a4 

.BEGINNING OF CRITICAL AREA 



4062* 


LEA 

SRAMrd6(A3),a5 

.WHERE IT COES 



4063* 


LEA 

ADrd6E,a6 

.AFTER CRITICAL CODE AREA 



4064* 


BSR.S 

ADnov 

iMOVE CODE 



4065* 







4066* 


LEA 

ADwaitB,a4 

.BEGINNING OF CRITICAL AREA 



4067* 


LEA 

SRAHwt(A3),a5 

.WHERE IT COES 



4068* 


LEA 

ADwaitE,a6 

.AFTER CRITICAL CODE AREA 



4069* 


BSR S 

ADbov 

.HOVE CODE 



4070* 







4071* 


HOVEM.l 

(spl>,A4-A6 

.restore registers 



4072* 


, 





4073* 


, do restore of drive 




4074* 


i 



6110 


4075* 


BSR.S 

ADitron 

.TURN ON MOTOR 

6100 

02B8 

4076* 


BSR 

ADrst 

;restore to track 0 

6104 


4077* 


BSR S 

AOitrof 

.TURN MOTOR OFF 

4A47 


4078* 


TST.W 

D7 

.set condition codes *kb 9/3/82* 

4E75 


4079* 


RTS 


.return 



4080* 







4081* 

i AOiov 

MOVE W 

(A4)+,(A5)f 

.love code to static RAH *KB 8/23/82 



4082* 

■ , 

CMPA.L 

A4,A6 

.finished aoving code? 



4083* 

, 

BNE.S 

ADbov 

.no, Bove neit word 



4084* 

; 

rts 


.return 


408S* 


*KB 8/23/82 
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4087* 




4088* 


DO.W - 

FREE 

4087* 


Dl.W - 

FREE 

4070* 


D2.W - 

BYTE CNT 

4071* 


D3.W - 

BASE BLK ADRS 

4072* 


D4.W - 

FREE 

4073* 


D5.W - 

USER CHD 

4074* 


D6.V - 

FREE 

4075* 




4076* 


AO.L - 

USER BUFFER ADDRESS 

4077* 


Al.L - 

DEVICE DESCRIPTION AREA BASE ADDRESS 

4078* 


A2.L - 

FLOPPY CONTROLLER BASE ADDRESS 

4077* 


A3.L - 

STATIC RAH BASE ADDRESS 

4100* 




4101* 




4102* 

; 



4103* 

, 

ADmtrof - 

- turn Botor off 


4104» . 

1B04 102A OOtO 41QS* ADatrof HOVE B HOTOROFF(A2) ,D0 .TURN OFF FLOPPY DRIVE MOTOR 

IBOI 4E7S 4104* RTS .tetocn 

4107* 

4108* , 

4107* . AD>tron -- turn aotoi on 
4110* ; 

IBOA 102A 0012 4111* ADltron HOVE. B MOTORON(A2).O0 .TURN ON FLOPPY DRIVE MOTOR 

IBOE 4E7S 4112* rts .return 

4113* 
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4115* ADtdwt BSR 
4116* 


,set address registers 

,A1 - pointer to derice description info 

,A2 = pointer to slot controller registers 


1B14 

4A43 


4118* 

4119* 

TST V 

D3 

,A3 = pointer to slot static RAM 
,test base block 

1B16 

6B3C 

FCCfl 

4120* 

BMI 

FDEbIck 

,iuap if first blk rqstd is invalid 

IBIA 

B669 

0734 

4121* 

cap .w 

CPfdvsx(AU,d3 

,15 it in iiai t 

IBlE 

6CC0 

FCB8 

4122* 

bge 

FDEbIck 

,}uap final block exceeds max 

IB22 

6100 

FAE8 

'4123* 

4124* 

BSR 

FDcIcTS 

.coapute track and sector 

1B26 

6616 


4125* 

BNE.S 

ADrdwrY 

,if error, return 

1B28 

6lEG 


4126* 

BSR.S 

ADatron 

, turn aotor on 


DO .V - FREE 
Dl.V - BYTES PER SEC 
D2.W - WORD CNT 
03. V - TRACK ADDRESS 
04 V - SECTOR ADDRESS 
CS.V - USER COMMAND 
06 V - FREE 


REAOS/VRITES ONLY COMPLETE SECTORS 
For the rest of the code: 


points to the aset buffer address 
points to the beginning of the device 
table entry for this voluae in DO at the entry 
Contains the NDEVICE address of the slot 
specified in the device table for this Voluae 
BASE ADDRESS OF LOCAL STATIC RAM 


1B2A 6100 0240 
1B2E 660E 


,seeh the desired track 
,if error, return 


1E30 9441 

1B32 6B0A 
1B34 611A 

1E36 6606 

1B38 6100 FEIE 

133C 67F2 


ADrdvrrl sub.w 
bai . s 


;jaap,no acre full sectors to rd 
iread a full sector 
.error, exit 

,get neat sector address 

,if ok, read the neat sector *KB 8/2/82* 
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4160* , 

4161* , AOinU -- get the physical sector nuabet for the logical sector nuaber 
4162* ; specified in D4 W 

4163* , 





4164* 

, 

Enter 

D4.V = logical 

sector nuaber 




4165* 

, 

Eiit 

D4.V = physical sector number 




4166* 

, 




1B40 

2F06 


4167* 

ADinlv 

note 1 

A0,-(sp) 

,save register 

1B42 

207B 

0730 

4168* 


■ove. 1 

CPfinlf w,A0 

,get interleave table pointer 

1B46 

6704 


4169* 


begs 

ADinU? 

Just return ii no tdble pointer 

1B4S 

1830 

4000 

4170* 


aote . b 

0(A0,D4.W).D4 

,get physical sector nuaber 

1B4C 

20SF 


4171* 

AOinlv? 

move I 

(sp)«,A0 

.restore register 

1B4E 

4E75 


4172* 


rts 


.return 


4173* 

4174* 

4175* 


ADsecR -- find the desired sector on the current track by using ADfsec 





4176* 


If 

the sector is 

found then call ADccRd to read 

the sector 




4177* 


into the buffer 






4178* 







00007FFF 

4179* 

ADrcSc 

equ 

57FFF 

.retry count *KB 8/23/82* 





4180* 




, 


1B50 

48E7 

FA4E 

4181* 

AOsecR 

MOVEM.L 

D0-D4/06/Al/A4-A6,-(SF> .save registers 

i 8/23/82* 

1B54 

61EA 


4182* 


bsr.s 

AOinlv 

.get physical sector number 





4183* 






1B56 

40E7 


4184* 


KOVE.V 

SR, -(SP) 

.save sr *KB 

8/23/82* 

1BS8 

007C 

0700 

4185* 


ORI.W 

l$070D. SR 

.turn off interrupts *KB 

8/25/82* 




4186* 






1B5C 

3C3C 

7FFF 

4187* 


MQVE.W 

iADrcSc.D6 

.retry count 


I860 

2848 


4188* 


MOVEA L 

A0.A4 

.SAVE AO INTO A4 





4189* 






1B62 

204C 


4190* 

ADsecRl 

MOVEA.L 

A4.A0 



1B64 

6100 

012A 

4191* 


BSR 

ADfsec 

ifind sector 


1B68 

6608 


4192* 


BNE.S 

ADsecR2 

^sector not found - eiit 


1B6A 

6112 


4193* 


BSR.S 

ADccRd 

iread sector 


1B6C 

57CE 

FFF4 

4194* 


DBEa 

06, ADsecRl 

;do untiKsector read) or (no more retries 

1B70 

6702 


4195* 


BEQ.S 

ADsecR9 






4196* 






1B72 

204C 


4197* 

ADsecR2 

aovea.l 

a4,a0 

ierror, so recover aO 





4198* 




, 


1B74 



4199* 

ADsecR9 





1B74 

460F 


4200* 


MOVE.V 

(SF)^,SR 

.restore sr *KB 

8/23/82* 

1B76 

4CDF 

725F 

4201* 


MOVEM.L 

(5FU,D0-D4/D6/Al/A4-A6 .save registers *KB 

8/23/82* 

1B7A 

4A47 


4202* 


TST.V 

D7 

.set return condition code 


1B7C 

4E75 


4203* 


RTS 


; return 
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1B7E 


1B82 


iE6i 

1B8A 

iB8E 

IB92 

IB9< 

1691 

1B9A 

1B9C 

1B9E 




4206* 






4207* 

ADccRd -- read 8 bit bytes of disk data, retranslates to data, 



4208* 

then perfotM the Eiclusite ois to get user data 



4209* 






4210* 

First 56 bytes of nbuf2 data are read in. 



4211* 

Then the nobfl data is read in 

three groups 



4212* 

first and second group of 86 (S6H) data, the last group 



. 4213* 

of 256-86-86 bytes i e. left over bytes. 



4214* 






4215* 

Groupl is de 

•niblixed using denibiising table ONIBL2 



4216* 

CroupX is de- 

nibiixed using denibiising table DNIBL3 



4217* 

Croups is de 

-niblixed using denibliiing table DNIBL4 



4218* 






4219* 

disk data foriat 




4220* 

prologue 









4221* 


! . 

1 1 



4222* 

! D5 AA AO 

: 342 bytes of disk data i one byte i OE AA Efi 



4223* 

4224* 



! • 








4225* 




00000400 

4226* ADrcRd eqa 

$400 

read sector retry count 



4227* 




48E7 

02G8 

4228* XDccRd •otei. 

d6/a4,-(sp) 

*KB 8/23/82* 



4229* 

, 





4230* 

i 1) read prologue of disk data field. Tty 1024 tiaes. 



4231* 

; If prologue not found, indicate error 



4232* 

, 



3E3C 

0400 

4233* 

aove .w 

tADrcRd,d? 

RETRY COUNT *KB 8/24/82* 



4234* 

, 





4235* 

, SEARCH FOR PROLCCUE 




4236* 

, 



51CF 

0006 

4237* AOecRdl dbf 

d7,AOccRd2 


6000 

0086 

4238* 

bra 

AOecRdB 




4239* 




102A 

0018 

4240* ADccRd2 aove.b 

Q6L<a2},dO 

check for OS HEX 

aPA 


4241* 

bpl .s 

ADccRda 

lap if byte has not been asabld 



4242* 




B03C 

OOOS 

4243* AOccRd3 cmp.b 

l$O5,d0 

IS a part of prologue 

aEC 


4244* 

bne.s 

ADccRdl 

no 



4245* 



*KB 8/23/82* DELAY A LITTLE 

4240 


4246* 

cit .w 

dO 

cleat bit 8 to 15 of 0 reg 

4241 


4247* 

clr.w 

dl 

clear bit 8 to 15 of D reg 

4243 


4248* 

clr .w 

d3 

clear bit 8 to 15 of D reg 
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[BAG 

102A 

0018 

4250* 

ADccRd4 

Ao?e .b 

Q6L<a2),d0 

.check tor AA hei 

.BA4 

8AFA 


4251* 


bpl . s 

ADccRd4 

,]Bp it byte has not been asBbid 

iBAi 

B03C 

OOAA 

4252* 


cip b 

l$AA,dO 

, IS a part of prologue 

[BAA 

A6E8 


4253* 


bne. s 

ADccRdS 

,no, see if start of prologue 




4254* 




,*KB 8/23/82* DELAY A LITTLE 

;BAC 

4242 


4255* 


cir.w 

d2 

.clear bit 8 to 15 of D reg 

iBAE 

49FA 

FDFE* 

4256* 


LEA 

DNIBL, A4 

.translate table 




4257* 





iBB2 

102A 

0018 

4258* 

ADccRdS 

■0*6 . b 

Q6L(a2) ,d0 

;check for AD hei 

IBBi 

8AFA 


4259* 


bpl .5 

ADccRd5 

.jsp if byte has not been asibld 

IBB8 

B03C 

OOAD 

4260* 


cip.b 

l$AD,dO 

,is a part of prologue 

IBBC 

6606 


4261* 


bne.s 

ADccRdS 

;no, see if start of prologue 




4262* 


; 






4263* 


; 2) prologue has been found, read 56H bfles o( disk data into N6UF2 




4264* 


, This DATA is then used to get the LEAST SIGNIFICANT 2 BITS OF A BYTE 




4265* 



NOTE THIS DATA IS OF THE FORK 




4266* 



N55 eor. 

0 




4267* 



NS4 .eor. 

N5S 




4268* 



NS3 eor. 

N54 




4269* 



N52 eor. 

NS3 




4270* 








4271* 



NOl eor. 

NO 2 




4272* 



NOO .eor. 

NOl 




4273* 





IBBE 

4BF8 

8E82 

4274* 


LEA 

NBUF2.V, A5 

,*K6 8/23/82* 

1BC2 

3C3C 

0055 

4275* 


NOVE.V 

ILNBUF2-1, Df 

,*KB 8/23/82* 

im 

6156 


4276* 


BSR.S 

ADrd4 

.Read into NBUF2,*RB 8/23/82* 




4277* 

: i ; 

isr 

SRAMrd4(A3) 

iRead NBUF2 .NOT MOVING TO STATIC RAM 




4278* 








4279* 


, D2 is 

= NOO 





4280* 





IBCa 

43F8 

ODOO 

4281* 


LEA 

NBUFl.V, A1 

,*KB 8/23/82* 

IBCC 

3C38 

0736 

4282* 


MOVE.w 

CPfbps .w,D6 

iread 256 bytes of data one byte of chk subt 




4283* 




.and verify epilogue 

IBOO 

617C 


4284* 


BSR.S 

ADrd6 

.«KB 8/23/82* 




4285* 

< 1 ; 

isr 

SRAHrd6(A3) 

,DO ADrd6 CODE <==rr: LOOK <!>>'! 

1BD2 

6642 


4286* 


bne.s 

ADccRd9 

.jap it error 




4287* 








4288* 


, TRANSLATE the data 

read froi the disk. 




4289* 


, 



1B04 

43F8 

ODOO 

4290* 


LEA.L 

NBUFl W,A1 

.REPOSITION PTR TO BEGINNING 




4291* 


, 






4292* 


i 3) translate first 

group of S6H bytes i.e: 86 bytes 




4293* 


, 



1B08 

4BF8 

OEOZ 

4294* 


lea. I 

NBUF2.V,A5 

,RD5 CROUP 

IBOC 

40FA 

FCCD* 

4295* 


lea.l 

DNIBL2,a6 


IBEO 

3C3C 

0055 

4296* 


Bove.w 

•LNBUF2-l,d6 


1BE4 

614C 


4297* 


BSR.S 

ADrd5 

,*KB 8/23/82* 
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4299» 

4300* , 4) translate second group or SiH bytes RD4 CROUP 





4301* 

, D2 

contains A55 





4302* 

, 



IBEt 

4BF8 

0E02 

4303* 

lea 1 

NBUF2.V,a5 


IBEA 

4DFA 

FCC0 + 

4304* , 

leal 

DNlBL3,a6 


IBEE 

3C3C 

00 SS 

4305* 

■oie w 

tLNBUF2-l,d6 


IEF2 

413E 


4306* 

BSR.S 

ADrd5 

,»KB 8/23/82* 




4307* 

, 






4308* 

, 5) translate the third, last 

group. RD7 GROUP 




4309* 

, D2 

contains Aab 





4310* 

, 



iBft 

4BF8 

0E02 

4311* 

leal 

NBUF2.V,a5 


1BF8 

4DFA 

FCB3* 

4312* 

lea . I 

DKIBL4,a6 


IBFC 

3C38 

0 736 

4313* 

HOVE w 

CPfbps.w,D6 

.REMAINING OF 256 BYTES 

ICOO 

DC7C 

FF53 

4314* 

add w 

I(-LNBUF2-LNBUF2)-I,d6 

,* 

1C04 

612C 


4315* 

BSR S 

ADrdS 

;*Kfi 8/23/82* 




4316* 

, 






4317* 

, NOTE 

that the last byte cf user data was written as CHK SUM 




4318* 

, so read the last byte and conpare with chk sub EOR should be ZERO 




4319* 

, D2 contains Aff 





4320* 

, 



ICO 4 

4247 


4321* 

clr.w 

d7 

,d7 sO indicates no error 

1C08 

1019 


4322* 

BOfe b 

(al)^,dO 

; 

ICOA 

1234 

0000 

4323* 

move b 

0(a4,d0),dl 

, dniblixe disk data byte 

ICOE 

S302 


4324* 

eot b 

dl ,d2 


iClO 

6 704 


4325* 

beq s 

AOccRd9 

,no chk SUB error if xero rslt 




4326* 



, 

icn 

3E3C 

FFED 

4327* ADccRdB 

BO»e w 

IRRNF,d7 

.error code to d7 




4328* 




iCl6 

4CDF 

1040 

4329* ADccHd9 

BO Tea. 1 

(sp)f ,d6/a4 

.restore registers ,*KB 8/23/82* 

ICIA 

4A4? 


4330* 

tst w 

d7 

.set return condition code 

iCiC 

4E75 


4331* 

rts 


. return 
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ICIE 

ICIE 

1C22 

1C24 

1C28 

1C2J1 

1C2C 

1C30 

1C32 


1C32 

1C32 

1C34 

1C38 

1C3A 

1C3C 

1C40 

1C42 

1C44 

1C48 

1C4C 

1C4E 


1C4E 

IC4E 

1C4E 

1CS2 

1CS4 

1CS8 


ICSA 

ICSE 

1C80 

1C82 

lC6i 

1C68 

1C6A 

1C6C 

1C6E 


4333* , 




4334* 

; AOtd4 

-- loted to and eiecated 

at SRAHrd4(slot static RAM) 



4335* 

, 






4336* 

ADtd4B 



.start of SRAMrd4 code 

102A 

0018 

4337* 

ADrd4 

■ote.b 

Q6L(a2),dO 

, 

8AFA 


4338* 


bpl s 

AOrd4 

,]Bp if byte has not been asabld 

1234 

0000 

4339* 


•ovc . b 

0(a4,d0).dl 

.dnibliie disk data byte 

lACl 


4340* 


•ofe.b 

dl,(a5)« 

.store It. It IS Nil) EOR N(I-1> 

B302 


4341* 


eor .b 

dl.dl 

.ULTIMATELY d2 = NOO 

SICE 

FFFO 

4342* 


dbf 

d6.ADtd4 

, 

4E75 


4343* 


rts 


.return 



4344* 

A0rd4E 



.end of SRAKtd4 code 



4345* 







4346* 







4347* 

, AOrdS 

-- Translate bftcs *»not 

done in tiae critical section** 



4348* 







4349* 

ADcdSB 



.start of SRAHrdS code 

1019 


4350* 

ADrdS 

Bove .b 

(ai)T,dO 

,16 

1234 

0000 

4351* 


BOfC.b 

0(a4,d0),dl 

, 18 dnibitie disk data byte 

B302 


4352* 


eot b 

dl.d2 

.4 

1610 


4353* 


Bove . b 

(aS)f,d3 

.12 get an entry of nbaf2 

1E36 

3000 

4354* 


BOTe . b 

Q(a6,d3>.d7 

,18 get low order bits bi.bO of 

BF02 


4355* 


eot b 

d7,d2 

,4 a byte and aask thea into byte 

10C2 


4356* 


BOfe.b 

d2,(a0)4 

.14 store the byte into user area 

SICE 

FFEC 

4357* 


dbf 

d6, AOrdS 

.10 



4358* 




.TOTAL = 106 CYCLES 

C43C 

OOFC 

4359* 


and.b 

• $FC,d2 

,aask of 2 LSbits. Now d2 contains ASS 

4E75 


4360* 


rts 


.return 



4361* 

ADrdSE 



;end of SRAMrdS code 



4362* 







4363* 







4364* 

i AO:d6 

-- aoved to and eiecoted 

at SRAMrd6(slot static RAM) 



4365* 







4366* 

ADrd6B 



.start of 3RAHrd6 code 



4367* 

ADcd6 




102A 

0018 

4368* 

AOrd6i 

BOTe b 

Q6L(a2),d0 

.read 256 bytes of data and one byte of CHK SUM 

6AFA 


4369* 


bpi .s 

ADrd61 

, 

12C0 


4370* 


BOTe.b 

d0,(ai)4 

.BOTe bytes into BUFACRS 

SICE 

FFF6 

4371* 


dbf 

d6,A0td61 

, 



4372* 







4373* 


; READ 

epilogue 




4374* 





102A 

0018 

4375* 

ADrd62 

BOTe.b 

Q6L(a2).dO 


6AFA 


4376* 


bpl . s 

AOrd62 

;jap if byte has not been asabld 

4247 


4377* 


clr .w 

d? 

, pre-set d7 =0 to indicate no error 

BD3C 

OODE 

4378* 


cap . b 

•$OE.dO 


6702 


4379* 


beq .s 

ADrd69 

,iap if ok 

7EED 


4380* 


aoTeq 

IRRNF.d? 

.else BOTe error code to d7 



4381* 





4A47 


4362* 

ADrd69 

tst.w 

d7 

;set return condition code 

4E75 


4383* 


rts 


.return 



4384* 

ADrd6E 



.end of SRAMrd6 code 


4385* 
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4387* 

, 





4388* 

, ADwaitB -- loved to and eiecoted at SRAMwttsiot static RAH) 




4387* 

, delay ol units 

specified in 07 




4390* 

, Each unit is 100 nicio-seconds 




4391* 

, 



OOOOOOOA 

4392* 

dlylGOi equ 010 





4393* 



1C6E 



4394* 

ADwaitB 

.start of SRAMwt code 

1C6E 

48A7 

8600 

4395* 

■oven w d5/d6,-(sp) 

.save registers 

IC72 

3C3C 

OOOA 

439e» 

ADwaitl tove w IdlrlOOnidd 

.each count of d6 = 1100/112 = 10 aicro second 

1 C 7 1 

8E7I 


4397* 

ADwaitZ nog 

.delay 100 nicto-seconds 

1C7« 

4E71 


4398* 

nop 


\zn 

4£7l 


4399* 

nop 


IC7C 

4E7i 


4408* 

nop 


1C7E 

4E71 


4401* 

nop 


1C8C 

4E71 


4402* 

nop 


1C82 

SICE 

fFF2 

4403* 

dbf d6,ADwaitZ 


lC8i 

51CF 

FFEA 

4404* 

dbt d7, ADwaitl 


1C8A 

4C9F 

OOiC 

4405* 

BoveB w (sp)v,dS/d6 

.restore registers 

1C8E 

4E75 


4406* 

rts 

. return 

1C90 



4407* 

ADwaitC 

.end of SRAHwt code 




4408* 
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<410* , 

4411* i ADfsec -- call ADtdad until it finds the sector specified in D4 B or 
4412* ; it has no mote retries ieft. 

4413* i Calling routine must disable all the interrupts before making call 

4414* , 

00000044 4415* AOfsnrv equ 100 .number of revolutions until record not found *KB S/Z3/82* 

44U* 


1C?0 

48E7 

0208 

4417* 

ADfsec 

HOVEH. 

L D6/A4.-(sp) 

.save register *KE 8/23/82* 


1C?4 

1C38 

0738 

4418* 


move t 

) CPfspt.w.d6 

.compute retry count 


1C?8 

4886 


441?* 


eit.w 

d6 

^ t 


1C?A 

CCFC 

0064 

4420* 


mulu 

•ADfsnrv.D6 

,* 





4421* 






1C?E 

611C 


4422* 

ADfseel 

BSR.S 

ADtdad 

.get this sectors adr mark 


ICAO 

4A47 


4423* 


tst w 

d7 

.ERROR) 


1CA2 

6608 


4424* 


bne.s 

ADf sec2 

.?ES. RETRY 





4425* 


, 







4426* 


. see 

if this IS the 

correct track and sector number 





4427* 


. 


*KB 8/23/82* removed track check 

1CA4 

4247 


4428* 


clt.w 

d7 

,CLR error code to indicate no 

error 

1CA6 

B838 

0E84 

442?* 


CHP.B 

AHBUFfAHsec. 

U.D4, found sector? 


ICAA 

6708 


4430* 


BEDS 

ADfsec? 

.successful .so eiit 


ICAC 

51CE 

FFFO 

4431* 

ADfsec2 

DBF 

D6. ADfsec! 

.do untiKfound sector) or (no 

mote retries) 


4432* ; 

4433* ; RETRIES FAILED 

4434* 


ICBO 3E3C FEED 4435* ADfsecS HOVE.V tRRNF.07 

4436* 

1CB4 4CDF 1040 4437* ADfsec? MOVEH.L (sp)^.D6/A4 .save register *KB 8/23/82* 

1CB8 4A47 4438* tst.w d7 .set return condition code 

ICBA 4E75 443?* RTS .return 

4440* 



file CC PROM TEXT 


Page 114 


ADidad -- read the address field of the Apple fioppf 


foriat of the address field: 





4447* 

4448* 

.4449* 

4450* 

, *- prologue - 
, ; OS AA 96 

♦- vol naie -+ 
XX YY 

- track sector -+- cksuB -+ 

XX YY : XI YY ! XX YY 1 











4452* 







4453* 

, The data bfte 

is split into 

4 by 4 fornat, aiid then is wri 




4454* 

. A data bfte d7 d6 d5 d4 d3 

d2 dl dO is split as follows: 




4455* 







4454* 

, dsk bytel: 

id? 1 d5 1 

d3 1 dl 




4457* 

, dsk bfte2: 

1 d6 1 d4 1 

d2 1 dO 




4458* 







4459* 

, Shifting the 

first byte left by 1 and AND. with neat byte 




4440* 

, the original 

data byte can 

be reconstructed. 




4441* 







4462* 

, Calling 

routine Bust 

disable interrupts and save the 




4463* 

, *KB 8/23/82* 





4464* 

, 




00000400 

4445* 

AOrcAd equ 

$400 

;read address retry count 




4466* 




ICBC 

3E3C 

0400 

4467* 

ADrdad nove.w 

tAOrcAd.d? 

,set retry count 




4468* 




iCCO 

UCF 

0006 

4469* 

ADrdadl dbf 

d7,AOrdad2 

,if no Bore retries 

iCC4 

&00C 

OOAO 

4470* 

bra 

ADrdadS 

,tben report error 




4471* 







4472* 

, FIND PROLOGUE 






4473* 

, 



1CC8 

i02A 

0018 

4474* 

AOrdadX love.b 

Q6L<a2),dO 

icheck for OS HEX 

ICCC 

4AFA 


4475* 

bpl .s 

AOtdadX 

;wait until data ready 

ICCE 

B03C 

OOOS 

4474* 

ADrdadS ctp.b 

ISOS.dO 

i is a part of prologue 

1CD2 

64EC 


4477* 

bne.s 

ADrdadl 

^no, try again 

ICD4 

4242 


4478* 

clr.w 

d2 

;clear chksuB 




4479* 




iCDi 



4480* 

AOrdad3a 



1C06 

1Q2A 

0018 

4481* 

■ove b 

Q6L(a2>,dO 

.check for AA hei 

ICDA 

iAFA 


4482* 

bpi.s 

ADtdadSa 

;wait until data ready 

ICDC 

B03C 

OOAA 

4483* 

cnp.b 

IfAA.dO 

,is a part of prologue 

iCEfi 

46EC 


4484* 

bne.s 

AOtdad3 

ino 

1CE2 

49F8 

0E82 

4485* 

lea 

AMBUF.V,a4 

.delay and get adr aark buf 




4486* 




ICE& 



4487* 

ADrdad3b 



ICE4 

102A 

0018 

4488* 

•ove.b 

Q6L(a2),dO 

icheck for 96 hei 

ICEA 

6AFA 


4489* 

bpi.s 

ADrdadSb 

;wait until data ready 

ICEC 

B03C 

0094 

4490* 

cip.b 

t$96,d0 

iis a part of prologue 

ICFO 

46DC 


4491* 

bne.s 

ADrdad 3 

;no 


, prologue has been found. Now read the vol header 
, read 4 bftes: i vol naae I track i sector I chksus I 
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1CF2 

3E3C 

0003 

4498* 

•ove.w 

84-1, d7 

.nuiber of bytes is 4 1 DON'T THINK NEED 




4497* 








4498* 

, REPEAT CODE 4 TIMES 

INSTEAD OF LOOP 





4499* 

; 




1CF6 



4500* 

A0rded4A 


,VCL NAME 


ICFi 

102A 

0018 

450 1* 

ao«e .b 

Q8L(a2),dO 

.read first nibble 


ICFA 

8AFA 


4502* 

bpl . s 

ADrdad4A 

.wait until data ready 


ICFC 

E318 


4503* 

tol b 

• l.dO 

.rotate left by l 


ICFE 



4504* 

ADcdad5A 




ICFE 

122A 

0018 

4505* 

love b 

Q8L(a2),dl 

.read second nibble 


1D02 

8AFA 


4508* 

bpl .s 

ADrdad5A 

, iuip if byte has not been 

a sib id 

1D04 

C200 


4507* 

and . b 

dO.dl 

.and the two to get actual 

byte 

lOOi 

18C1 


4508* 

•ore . b 

dl,(a4)+ 

.store it in AHBUF 


1D08 

B302 


4509* 

eor . b 

dl.d2 

.create chksui 





4510* 





IDOA 



4511* 

ADrdad4B 


.TRACK NUMBER 


IDOA 

102A 

0018 

4512* 

love b 

Q8L(a2),dO 

.read first nibble 


IDOE 

8AFA 


4513* 

bpl.s 

ADrdad4B 

.wait until data ready 


IDlIl 

E318 


4514* 

roi b 

81. dO 

.rotate left by 1 


ID12 



4515* 

ADrdad5B 




1012 

122A 

0018 

4518* 

love.b 

Q8L(a21,dl 

.read second nibble 


IDU 

8AFA 


4517* 

bpl.s 

ADrdad5B 

.imp if byte has not been 

asibid 

1018 

C200 


4518* 

and.b 

dO.dl 

.and the two to get actual 

byte 

lOU 

18C1 


4519* 

love.b 

dl,(a4)4 

.store it in AHBUF 


IDIC 

B302 


4520* 

eoi b 

dl,d2 

.create chksui 





4521* 





lOlE 



4522* 

ADtdad4C 


.SECTOR NUMBER 


IDIE 

102A 

0018 

4523* 

love.b 

Q8L<a2).dO 

.read first nibble 


1022 

8AFA 


4524* 

bpl.s 

ADtdad4C 

.wait nntil data ready 


1024 

E318 


4525* 

lol .b 

81, dO 

.rotate left by i 


1028 



4528* 

AOrdadSC 




1028 

122A 

0018 

4527* 

love.b 

Q8L(a2>,dl 

.read second nibble 


1D2A 

8AFA 


4528* 

bpl.s 

AOrdadSC 

,iuip if byte has not been 

asibld 

1D2C 

C200 


4529* 

and.b 

dO.dl 

;and the two to get actual 

byte 

1D2E 

18C1 


4530* 

love.b 

dl,(a4)i 

istore it in AMBUF 


1030 

B302 


4531* 

eor b 

dl.d2 

.create chksui 





4532* 





1032 



4533* 

ADidad4D 


.CHECKSUM 


1032 

102A 

0018 

4534* 

love.b 

Q8L(a21,dO 

;read first nibble 


1038 

8AFA 


4535* 

bpl.s 

ADrdad4D 

.wait until data ready 


1038 

E318 


4538* 

rol .b 

81. dO 

.rotate left by 1 


1D3A 



4537* 

ADcdad50 




103A 

122A 

0018 

4538* 

love.b 

Q8L(a2},dl 

;read second nibble 


1D3E 

8AFA 


4539* 

bpl.s 

ADtdadSD 

,iuip if byte has not beer, 

asibld 

1040 

C200 


4540* 

and.b 

dO.dl 

.and the two to get actuai 

byte 

1042 

18C1 


4541* 

love.b 

dl.(a4)a- 

istore it in AHBUF 


1044 

B3D2 


4542* 

eor b 

dl.dX 

;create chksui 





4543* 





1048 

4A02 


4544* 

tst.b 

d2 

icoipare chksui to C 


1048 

881C 


4545* 

bne .s 

ADtdad8 

;return if chksui not s 0 





4548* 

i 







4547* 

, VERIFY EPILOGUE (DE 

AA EB) 





4546* 

; 




1D4A 

102A 

0018 

4549* 

ADrdad8 love.b 

Q8L(a2).dO 

iget data byte 
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mz 

4AFA 


4SS0* 


bpi s 

AOrdad6 

i»p if bjrte has not been asnbid 

IDSO 

B03C 

OODE 

4551* 


ctp.b 

t$DE,d0 


IDS 4 

4610 


4552* 


bne. s 

ADtdadS 

tetnrn if error 




4553* 





lOSi 

4247 


4554* 


clt.w 

d7 

set d7 sO to indicate no error 




4555* 





ID58 

102 A 

0018 

4556* 

ADrdid7 

•ovc.b 

Q6L(a2),dO 

get data byte 

1D5C 

6AFA 


4557* 


bpl .s 

ADtdad7 

inap if byte has not been asibld 

1D5E 

B03C 

OOAA 

4558* 


cap.b 

ISAA.dO 


1D42 

6602 


4559* 


bne. 5 

ADrdadI 

tetnrn error code if error 

1D44 

4E75 


4560* 


rts 






4561* 





ID64 

3E3C 

FFED 

4562* 

ADtdadS 

sove .w 

IRRMF.,d7 

error code to d7 

106A 

4E75 


4563* 


rts 


, tetnrn 
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4545* 

, 







4544* 

i ADscek — seek a given track 





4547* 








4548* 


Enter : 

D3.V - desired 

track nonber 




4549* 








4570* 






00000100 

4571 * 

AOteSk 

egu 

$100 

.retrf count 




4572* 





IDK 

0BC7 

F208 

4573* 

ADseek 

■oven.I 

d0-d3/d4/a0.-(sp) 




4570* 





1070 

3C3C 

0100 

0575* 

AOskl 

KOVE.V 

8AOteSk,D4 

, retry count 

1070 

0207 


0574* 


cit .«f 

d7 





0577* 





1074 

00E7 


0578* 

ADskl 

■ove.w 

$r,-(s|») 


1070 

007C 

0700 

0579* 


ori.w 

l$0700,sr 

.disable interrupts 

107C 

4100 

FF3E 

0580* 


BSR 

AOrdad 

.get track number where head is 

1080 

O40r 


0581* 


■ove .w 

<sp)>,sr 

.restore the interrupt 




4582* 





108Z 

0A07 


4583* 


tst.w 

d7 

.ERROR? 

lOSO 

4704 


4584* 


beq. s 

ADsk3 

.11 no error then jump 




4585* 








4584* 

; • ; . 

bsr .$ 

AOrst 

igo to track 0 

1084 

SICE 

FFEE 

4587* 


DBF 

D4.ADsk2 

,do untildound sector 

1D8A 

4020 


4588* 


bra . s 

AOsk9 

.tried enough 




4589* 


; 






4590* 


i See 

if head is post 

tioned on desired track 




4591* 


, issue STEPIN or STEPOUT to get to the correct track 




4592* 


, 



lose 

09F8 

0E42 

4593* 

ADsk3 

leal 

APL5VAR.V,a4 





4594* 





1090 

4200 


4595* 


clr.w 

dO 

.lorn the current halt 

1092 

1038 

0E83 

4594* 


nove.b 

AHBUFfAHtrk V.dO .track and save 

1094 

E348 


4597* 


Isl.vi 

• l.dO 

.halt track into dO 

1090 

1900 

0003 

4598* 


nove.b 

dO.csrtrktaO) 

.halt track number to 




4599* 





109C 

B438 

0E83 

4400* 


CHP.b 

AHBUFvANtrk.V,d3 

IDAO 

470A 


4401* 


beq . s 

ADsk9 

,eait it equal. lound track 

10A2 

4004 


4402* 


bits 

ADskO 

,}ump if track is < current track 




4403* 





IDAO 

4132 


4400* 


bsr $ 

ADccSin 

.step in 

1DA4 

40C8 


0405* 


bra s 

ADskl 

.see if another track 




0404* 





10A8 

412A 


0407* 

ADskO 

bsr . s 

ADccSoot 

istep out 

IDAA 

40C4 


0408* 


bras 

ADskl 

.see if another track 




0409* 





10 AC 

4CDF 

104F 

0410* 

A0sk9 

Boven. 1 

(sp)^id0-d3/d4/a4 

IDBO 

4A07 


0411* 


tst.w 

d7 

iset condition codes 

1DB2 

4E75 


0412* 


rts 
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44H* , 

46lS* , ADfSt -- restore floppy to track 0 
4il6» , 


ICB4 

48E7 

9008 

4617» 

AOrst 

•ofei. 1 

d0/d3/a4,-(sp) 

IDB8 

49F8 

0E62 

4618* 


leal 

APLSVAR.V.ad 

IDBC 

I97C 

0046 0003 

4619* 


botc.B 

12*35, curtrk(a4) 

10C2 

4243 


4620* 


clr w 

d3 

;DC4 

4248 


4621* 


clr.w 

dO 

10C4 

»134 


4622* 


bsr .s 

ADseekl 

1DC8 

422C 

0083 

4623* 


clr b 

corttk(a4) ,*KB 8/23/82* 

IDCC 

4CDF 

1009 

4624* 


■ovei 1 

(Sp)t,d0/d3/a4 

lOOO 

4247 


4625* 


clr w 

D7 itorce no error return 

10D2 

4E75 


4626* 


rts 

;return 




4627* 







4628* 

, AOccSoat - step out 




4629* 

, AOccSin -- step in 




4630* 

, 



1DD4 



4631* 

AOccSout 


IDD4 

4287 


4632* 


CLR.L 

D7 .DO STEP OUT 

1DD6 

6002 


4633* 


BRA S 

ADSioi 




4634* 




IDD8 

7E01 


4635* 

ADccSin 

MOVEQ 

il,D7 , DO STEP IN 




4636* 




lODA 

48E7 

1008 

4637* 

ADStol 

lOVCB 1 

d3/a4,-<sp) 

I DOE 

4243 


4638* 


clr .w 

d3 

IDEO 

49F8 

CE62 

4639* 


lea. 1 

APLSVAR V,a4 

10E4 

16 2C 

0003 

4640* 


aoie b 

cortrk(a4),d3 




4641* 




IDES 

4A87 


4642* 


T5T L 

D7 .should step in 

IDEA 

6704 


4643* 


BEQ.S 

ADSio2 .no, step out 

lOEC 

5433 


4644* 


addq.b 

•1*2, d3 .point to neit track IN 

IDEE 

6082 


4645* 


BRA.S 

ADSio3 

IDFO 

5503 


4646* 

AOSio2 

SUBQ.B 

11*2, d3 .point to neit track OUT 




4647* 




IDF2 

6188 


4648* 

ADSio3 

bsr. s 

ADseekl 

10F4 

4CDF 

1006 

464 9* 


aof e«. 1 

(sp)t,d3/a4 

1DF8 

4247 


4650* 


clr w 

D7 .force no error return 

IDFA 

4E75 


4651* 


rts 

.return 




4652* 

, 






4653* 

, AOseekl -- seek the track desired by the caller 




4654* 

, 






4655* 

, 

Enter : 

D3.V ' desired track nuaber 




4656* 

i 



IDFC 

1E2A 

0000 

4657* 

ADseekl 

■OTe.b 

PHASEOOFF(a2),d7 .Turn all 4 phases off 

lEOO 

1E2A 

0004 

4658* 


Bote . b 

PHASE10FF(a2).d7 

1E04 

1E2A 

0008 

4659* 


BOTC.b 

PKASE20FF(a2).d7 

lEOS 

1E2A 

OOOC 

4660* 


acre . b 

PKASE30FF(a2),d7 

lEOC 

6102 


4661* 


bsr . s 

AOccSk 

lEOE 

4E75 


4662* 


rts 

, return 
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4664* 
4&6S» 
4U6* 
4A67* 
4A68* 
4AA9* 
4670* 
467 1* 
46 72* 
4673* 
4674* 
4675* 


ADccSk -- seek the track desired by the caller 

Enter: D3.V - desired track nuiber 

CURTRK location holds the current track number 

Eiit. The final track ) cortrk 

The cortrk-l > PRIOR 

APPLE DOS NAME COMVENTION 

(TRKN) = Desired track number 


4676* 


(CURTRK) = The current track number where floppy heads are positioned 





4677* 

i 

(PRIOR) 

= The (CURTRR)-l 





4678* 

, 

(TRKCNT) = The number of track 

the floppy has been moved so far 




46 79* 

, 




lElO 

48E7 

8608 

4680* 

ADccSk 

mosem. 1 

d0/d5-d6/a4,-(sp) 

,save registers 

1E14 

4245 


4681* 


clr w 

d5 

.clear bit 8 to 15 

1E16 

4246 


4662* 


cl r ,w 

d6 

.clear bit 8 to 15 

1E18 

4247 


4683* 


clr ,w 

d7 

.clear bit 8 to 15 

lElA 

49F8 

QE6Z 

4684* 


lea 

APL5VAR.W,a4 


lElE 

B62C 

8003 

4685* 


cmp.b 

curtrk(a4) ,d3 

,is desired trk = current track 

1E22 

6764 


4686* 


beq.s 

ADcc5k9 

.exit if equal 




4687* 





IE24 

422C 

0000 

4688* 


clr.b 

trkcnt (a4 ) 

,init track count 

1E28 

40E7 


4689* 


mo 1 e . w 

sr , -(sp) 

.save interrupt level 

1E2A 

0O7C 

0700 

4690* 


on ,w 

#$0700, sr 

.disable interrupts 




4691* 





1E2E 

196C 

0003 

0001 4692* 

ADccSkl 

move b 

curtrk(a4) ,prior(a4) 

icurtrk to prior 

1E34 

B62C 

0003 

4693* 


cmp ,b 

curtrk(a4) ,d3 


1E38 

673E 


4694* 


beq.s 

ADccSkS 

,]ump if current trk = desired trk 

1E3A 

600E 


4695* 


bit.s 

ADccSkZ 

.jump if desired trk< CURTRK 




4696* 





1E3C 

1E03 


4697* 


move . b 

d3,d7 

, Seek IN 

1E3E 

9E2C 

0003 

4698* 


sob ,b 

curtrk(a4) ,d7 

, trkn - cutlrk --) d7 

1E42 

530? 


4699* 


subq.b 

11, d7 

, trkn - curtrk -1 to d7 

1E44 

522C 

0003 

4700* 


addq . b 

tl,curtrk(a4) 


1E48 

600C 


4701* 


bra . s 

ADccSkS 





4702* 





1E4A 

IE2C 

0003 

4703* 

ADccSk2 

move . b 

curtrkla4) ,d7 

.curtrk is ) desired track 

1E4E 

9E03 


4704* 


sub . b 

d3,d? 

. Seek OUT 

lESQ 

5307 


4705* 


subq . b 

11, d7 

, trkn - curtrk -i to d7 

1E52 

532C 

0003 

4706* 


subq . b 

tl , curtrk(a4) 





4707* 





1ES6 

BE2C 

0000 

4708* 

ADcc5k3 

cmp b 

trkcnt(a4).d? 

.calculate index to the delay table 

lESA 

6D04 


4709* 


bits 

ADccSk4 

.jump if d7 is less than trkcni 

1E5C 

1E2C 

0000 

4710* 


move b 

trkcnt(a4),d? 





4711* 





1E60 

BE3C 

0008 

4712* 

AOccSk4 

cmp.b 

808, d7 

, destination cmp source 

1E64 

6C02 


4713* 


bqe .s 

AOccSk5 

, leave dO alone if d? ): 08 




4714* 




,to use as index into turn ON delay OFFdelay 

1E66 

1007 


4715* 


move . b 

d?,d0 

, do STEP 

1E68 

1A2C 

0003 

4716* 

ADccSkS 

move . b 

cortrk(a4) ,d5 


IE6C 

IC2C 

0001 

4717* 


move . b 

prior(a4) ,d6 
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1E7B 

illC 


4718* 

BSR.S 

ADceStp 


1E7I 

S22C 

0000 

4719* 

addq.b 

tl,t[kcnt(i4) 


1E74 

iOBi 


4720* 

bti.s 

AOccSkl 

.seek neit ttack 




472l» 




1E7I 

IC2C 

0003 

4722* 

ADccSk8 loveb 

curtck(44),d4 


1E7C 

il46 


4723* 

bsi s 

ADcltPh 

.cleir the phase turned on the last tiie 

1E7E 

4oDF 


4724* 

Aoie.w 

(sp)f ,sr 

^restore interrupt level 

1E80 

3E3C 

0100 

4725* 

■OTC w 

t$100,d7 


IE84 

6100 

FOE8 

4724* 

BSR 

AOwaitB 

iwait 




4727* 

,, ist 

SRAHwt(A3) 

, ADwai tB 




4728* 




l£88 

4CDf 

1061 

4729* 

AOccSlc9 Movei. 1 

(sp)f,d0/dS-d4/a4 

.restore registers 

1E8C 

4E75 


4730* 

rts 


.return 
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4732* 

i 






4733* 

i ADccStp -- >o?e the floppy in or ont 

by one phase i e Half track 




4734* 







4735* 

; Enter. 

the track noB to use for setting a phase > d5 




4736* 


the track noB to ose (or clearing <t phase ) d6 




4737* 


the indei for ADtblON 

and ADtblOF to fetch a dealy count 




4738* 







4739* 

, Note. 

THE BIT 8 TO 15 OF 00,05,06 MUST BE ZERO. 




4740* 







4741 * 

, Eiit; 

SETS one phase and clears a phase 




4742* 







4743* 

; TO MOVE FLOPPY HALF TRACK INWARD. 





4744* 

; set phase i 





4745* 

; clear 

phase i>l 





4746* 

, 






4747* 

, TO MOVE FLOPPY HALF TRACK OUTWARD: 





4748* 

, set phase i-1 





4749* 

; clear 

phase i 





4750* 

, 



tE8E 

48E7 

0802 

4751 * 

ADccStp BOTCB. 

d4/a6,-(sp) 

, 

1E92 

6124 


4752* 

bsr s 

ADsetPh 

, turn on phase 

1E94 

4247 


4753* 

clr .w 

d7 

;clear bit 8 to 15 of 07 

1E94 

4DFA 

0038t 

4754* 

lea 

ADtblON, a6 

, 

1E9A 

1E36 

0000 

4755* 

Bove.b 

0(a6,d0),d7 

, 

1E9E 

6100 

FDCE 

4756* 

BSR 

ADwaitB 





4757* 

jsr 

3RAMwt(A3} 

, ADwaitB 

iEA2 

6120 


4758* 

bsr .s 

ADcIrPh 

; turn off phase 

1EA4 

4247 


4759* 

clr .vf 

d7 

;clear bit 8 to 15 of D7 

1EA4 

4DFA 

0030t 

4760* 

lea 

ADtblOF, a6 


lEAA 

1E36 

0000 

4761* 

Bore.b 

0(a6,d0),d7 


iEAE 

6100 

FDBE 

4762* 

BSR 

ADwaitB 





4763* 

,, Jsr 

SRAMwt(A3) 

, ADwaitB 

iEB2 

4CDF 

4010 

4764* 

BOfeB. 

(sp)i,d4/a6 


IEB4 

4E75 


4765* 

rts 






4766* 




1EB8 

0205 

0003 

4767* 

ADsetPh andi .b 

103, d5 


lEBC 

ESOD 


4768* 

Isl.b 

12, dS 

i GENERATE APPLE ADRS 

lEBE 

1E32 

5002 

4769* 

Bove.b 

phaseon(aZ,d5),d7 


1EC2 

4E75 


4770* 

rts 






4771* 




1EC4 

0206 

0003 

4772* 

ADcIrPh andi .b 

103, d6 


1EC8 

ESOE 


4773* 

Isl.b 

02, d6 

; GENERATE APPLE ADRS 

lECA 

1E32 

6000 

4774* 

Bove .b 

phaseoff(a2,d6),d7 


lECE 

4E75 


4775* 

rts 






4776* 




tEOQ 

00 2F 

27 23 

4777* 

ADtblON DATA.B 

1-1, $30>1, $28-1, $24-1 


1E04 

IF ID 

1C IB 

4778* 

DATA . B 

$20-l,$lE-l,$lD-l,$lC- 

1 ,even nuBbet ol bytes 




4779* 




1ED8 

6F 2B 

25 21 

4780* 

ADtblOF data.b 

$70-1, $2C-1, $26-1, $22- 

1 i 

lEOC 

IE 10 

1C IB 

4781* 

DATA.B 

$1F-1,$1E-1,$10-1,$1C- 

1 ieven nuBber of bytes 




4782* 
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COOIOOBU 4784* end setup 


ABOOT 

0118i4t 

ADR082 

011C5A+ 

AMTRK 

00000001 

CPIVEC8 

ODQ10084 

CSTEF 

00000020 

ABOOTl 

0U836f 

ADRD69 

011C6A+ 

AMVOL 

00000000 

CPIVEC7 

00010088 

C5TEPIN 

00000040 

ABOOT9fl 

011854+ 

AORD6B 

011C4E+ 

APL5VAR 

Q0000E82 

CPKBCETC 

00010054 

CSTEPOUT 

00000080 

ADDON 

00000002 

ADR06E 

011C6E+ 

SADDEST 

00000088 

CPXBINIT 

00010058 

CSUMRD 

00000004 

AOBlOl 

01186C+ 

ADROAD 

011CBC+ 

BADSOCX 

00000084 

CPLBLXIO 

00010028 

CURSON 

00000002 

ADBI09 

011874+ 

ADRDADl 

011CCO+ 

BASERAH 

00000900 

CPLBOOT 

00010022 

CURTRX 

00000003 

ADBLKIO 

C118S6+ 

ADRDAD2 

011CC8+ 

BLKSZ 

00000200 

CPLBOOTJ 

0QQ1Q020 

CWRSEC 

OOOOOQAO 

ADCCRD 

011B7E+ 

ADRDAD3 

011CCE+ 

BPS5ISD 

00000100 

CPLDSKIO 

OD01002A 

CWRTRX 

OOODOOFO 

ADCCRDl 

0I1B86+ 

ADRDAD3A 

011CD8+ 

BPS8IDD 

00000100 

CPOBLKIO 

00010018 

DCBLKKI 

00000003 

ADCCRD2 

flllB8E+ 

ADRDAD3B 

0ilCE8+ 

BPSBISD 

00000088 

CPOBOOT 

00010012 

DCBLKLO 

00000002 

ADCCRD3 

011B94+ 

ADRDAD4A 

011CF6+ 

CFHCINT 

OOOOOODQ 

CPQBOOTJ 

00010810 

DCDRV 

00000001 

ADCCRD4 

011BA0+ 

ADRDAD4B 

011D0A+ 

CHEND 

010188+ 

CPOOSXIO 

OOOIOOIA 

DCLEN 

00000004 

ADCCRD5 

011BB2+ 

ADRDA04C 

011D1E+ 

CHENDl 

01018C+ 

CPQMNIBF 

eOQBDFDO 

DCKD 

00000000 

ADCCRD8 

011C12+ 

ADRDAD4D 

011D32+ 

CKERR 

010178+ 

CPOHNIRC 

000007QF 

DEBOP 

00000008 

ADCCRD9 

011CU + 

ADRDAOSA 

flllCFE+ 

CHERRl 

01017A+ 

CPOKNRAH 

00000880 

DEVADOFS 

00000020 

ADCCSIN 

0ilDDB+ 

ADRDADSB 

011D12+ 

CMDACPT 

OOQOOOFE 

CPOSBIX 

00000709 

DLYIOQM 

OOQOOOQA 

ADCC3K 

0UE10 + 

ADROAOSC 

011D26+ 

CNSTSKT 

OOQOOOBO 

CPOSDRV 

00000708 

DNIBL 

0119AE+ 

ADCCSKl 

011E2E+ 

ADRDADSD 

011D3A+ 

CPABLKIO 

00010042 

CPOSSLOT 

00000708 

DNIBL2 

0il8AE+ 

ADCCSK2 

011E4A+ 

ADRDA06 

311D4A+ 

CPAINIT 

00Q1004A 

CF0S5RVR 

00000707 

DNIBL3 

0118AC+ 

ADCCSK3 

0UES& + 

AORDAD7 

011D58+ 

CPASCTIO 

00010048 

CPROKLVL 

OOOIDOOD 

DNIBL4 

0118AD+ 

ADCCSK4 

011E60+ 

ABROA08 

011086+ 

CPBLKIO 

00000714 

CPROHVRS 

OOOIOOOC 

DRVOEN 

00000014 

ADCCSK5 

011EiB+ 

AORDVR 

811B10+ 

CPBTSLOT 

00000700 

CPSCNOFS 

00000784 

DRVIEN 

00000018 

ADCCSK8 

011E78+ 

ADRDVRl 

011B30+ 

CPBTSRVR 

00000701 

CPSLIRAH 

00000900 

DSADDR 

010CCC+ 

ADCCSK9 

0UE8B + 

ADRDVR9 

011B3E+ 

CPCKSUM 

QQOIDOOE 

CPSLITYP 

00000771 

DSADDRK 

010CD8+ 

ADCCSODT 

0T1DD4 + 

AORST 

811DB4+ 

CPDISXHC 

0000070E 

CPSL2RAH 

OOQOOAOQ 

D5ADDRV 

010CFC+ 

ADCCSTP 

011E8E+ 

ADSCIOl 

011868+ 

CPDSCVUC 

0001008C 

CPSL2TYP 

00000772 

DSCBLHX 

00000028 

ADCLRPH 

0UEC4 + 

ADSCI09 

01189E+ 

CPDSINIT 

00010080 

CPSL3RAM 

00000800 

DSCCR 

OOOOOOOO 

ADFSEC 

011C90+ 

AOSECIO 

01167E+ 

CFDSKIO 

00000718 

CPSL3TYP 

00000773 

D3CDIFF 

00000020 

ADFSECl 

G11C9E+ 

ADSECR 

011BS0+ 

CPDSPFLG 

00000788 

CPSL4RAH 

OOOOOCOO 

OSCELLV 

00000008 

ADFSEC2 

011CAC+ 

ADSECRl 

011B82+ 

CPDSPUTC 

00010084 

CPSL4TYP 

00000774 

DSCELLY 

OOOOOOOA 

ADFSECS 

011CB0+ 

ADSECR2 

011S72+ 

CFDSPUTS 

00010088 

CPSL5TYP 

00000775 

DSCESC 

OOOOOOIB 

ADFSEC9 

011CB4+ 

ADSECR9 

Q11B74+ 

CPEXTCRT 

OOOOOFOO 

CPSTACX 

OOOOOFOO 

DSCLAL 

010BE0+ 

ADFSNRV 

00000084 

AOSEEK 

011D8C+ 

CPFBLKIO 

00010038 

CPSYSRST 

00010004 

D5CLCA 

00000081 

ADI5SSSD 

011AAE+ 

ADSEEXl 

011DFC+ 

CFFBOOT 

00010032 

CPSYSST 

OOODOFOi 

OSCLCZ 

0000007A 

ADILVTB 

011AE4+ 

AOSETPH 

011EB8+ 

CPFBOOTJ 

00010030 

CPTPRNBR 

0000070D 

DSCLEL 

OlOClEf 

ADINIT 

011AF4+ 

ADSIOl 

011DOA+ 

CPFBPS 

00000738 

CPUNIQID 

00010008 

DSCLELl 

010C34+ 

ADINLV 

011B40+ 

AOSI02 

011DF0+ 

CPFDVSZ 

00000734 

CPUSERID 

00008720 

DSCLEL2 

010C3A+ 

ADINLV9 

011B4C+ 

ADSI03 

011DF2+ 

CPFINIT 

0001003E 

CPUSERNH 

00000728 

OSCLES 

010BE4+ 

ADMTROF 

011B04+ 

ADSKl 

011D70+ 

CPFINLV 

00000730 

CPWNORCD 

00000740 

DSCLESl 

010BF2+ 

ADMTHON 

01160A+ 

ADSK2 

011D78+ 

CPFOFST 

00000738 

CROAK 

OOGOOOCO 

DSCLES2 

010C08+ 

AORCAD 

00000400 

ADSK3 

011O8C+ 

CPFSCTIO 

0001003A 

CRDSEC 

00000080 

DSCLES3 

01OC0A+ 

ADRCRD 

00000400 

AOSK4 

011DA8+ 

CPFSPD 

O0QOO73A 

CRDTRX 

OOOOOOEO 

DSCLES9 

G10C1C+ 

AORCSC 

00007FFF 

ADSX9 

011DAC+ 

CFFSPT 

00000738 

CRESTORE 

00000800 

DSCLRH 

010CSC+ 

ADRCBK 

00000100 

ADTBLOF 

011ED8+ 

CPFTPS 

00000739 

CSATT81 

00000010 

DSCLRKl 

010C72+ 

ADRD4 

flllClE+ 

ADTBLON 

011ED0+ 

CPFTTP 

0000073C 

CSATTR2 

00000011 

DSCLRK2 

010C64+ 

ADRD4B 

011C1E+ 

ADWAITl 

011C72+ 

CPIOBUF 

OOOOOOOO 

CSBPCH 

00000008 

DSCLRH3 

010C8C+ 

ADR04E 

011032+ 

ADVAIT2 

011C78+ 

CPISTACX 

OOOQOFFC 

CSOATA 

00000012 

DSCLRK4 

010C90+ 

ADRDS 

011C32+ 

ADWAITB 

011C8E+ 

CPIVECl 

00010070 

CSEEX 

00000010 

DSCLRKS 

010C98+ 

ADRDSi 

011C32+ 

ADVA ITS 

Q11C90+ 

CFIVEC2 

00010074 

CSFRSTCH 

00000008 

DSCLRH8 

010C9C+ 

ADRD5E 

011C4E+ 

AHBUF 

00000E82 

CPIVEC3 

00010078 

CSLASTCH 

OOOODOOA 

DSCLRV 

010C3E+ 

ADRD6 

011C4E+ 

AMCHXSH 

00000003 

CPIVEC4 

8001007C 

CSLPCH 

00000004 

DSCLRVl 

0i0CS2+ 

ADRDAi 

011C4E+ 

ANSEC 

00000002 

CPIVEC5 

00010080 

CSHASX 

oooooooc 

DSCRSAD 

010BCC+ 
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DSCRSD 

OlDBUi 

DSSHOW9 

OiOBlA+ 

FDCSTPOT 

00000075 

FDSEEKl 

0116EE+ 

lOBOOTSW 

00030F61 

DSCRSH 

010B6Cf 

D5SHV71 

010ADA+ 

FDCSTRR 

00000010 

FDSEEK8 

011706+ 

IQPBA5E 

30030000 

DSCRSHi 

OlOBiE^ 

DSSHW72 

Q10AE4+ 

FDCTRKR 

00000012 

FD5EEK9 

011708+ 

ITOl 

010S4A+ 

DSCRSL 

OlOBSEf 

DSSHV73 

010AEE+ 

FDEBLCK 

011708+ 

FD5I01 

01146E+ 

IT02 

010558+ 

DSCRSR 

OlOBlCf 

DSSHV74 

010AF8+ 

FDEBUSY 

011802+ 

FDSI02 

011482+ 

IT99 

010562+ 

DSCRSU 

010B32f 

D55HV75 

010B02+ 

FDECRC 

011708+ 

FDSI09 

011486+ 

IVLVLl 

00000064 

D5CSETH 

010D4Ef 

DSSHV76 

010BOC+ 

FDEHERR 

0117EA+ 

FDSKSTl 

0117BA+ 

IVLVL2 

00000068 

DSCSETV 

010D84f 

DSSHVCH 

010A64+ 

FDENRDY 

01180C+ 

FDSK5TA 

0117B6+ 

IVLVL3 

0000036C 

DSCTBl 

OlODOS^ 

DS5T0 

010AOE+ 

FDEOPCD 

0117E4+ 

FDSWSTA 

0117AA+ 

IVLVL4 

00000070 

DSCTL 

fllOA22f 

DSSTBL 

010026+ 

FDEPROT 

0117F0+ 

FDTMOHI 

00000004 

IVLVL5 

00000074 

DSCURS 

0i0B9Ai 

DSTAB 

010CA6+ 

FDERNF 

0117FC+ 

FDTMOLO 

00007FFF 

IVLVL6 

00000078 

DSCURSQ 

0l0B9Cf 

DSTABl 

010CC0+ 

FDERSTA 

011704+ 

FDWRDY 

0116B0+ 

IVLV17 

0000007C 

DSCURSl 

OlOBBAf 

DSVNDH 

01002A+ 

FDESEEK 

0117F6+ 

FDVRDYl 

0116BE+ 

JUMPTO 

00004EF9 

DSCURS2 

OlOBBEf 

D5VNDV 

010D60+ 

FDEUNIT 

0117OE+ 

FDWRDY 9 

011602+ 

KBBBUFR 

OOOOOOOC 

DSCURS3 

OICBCO^ 

DSVRAP 

010B8C+ 

FDCETADR 

0115E0+ 

FHLD 

00000008 

KBBFLGS 

00000000 

DSCVTUl 

0109C4+ 

DSVRAPX 

010B78+ 

FDI8SS 

0114CC+ 

FIMTIDXP 

00000004 

KBBFRNT 

00000002 

DSCVTUC 

0109B4+ 

DTA5 

OOOflOQDS 

FDI8SSDD 

0114B0+ 

FINTIMH 

00000008 

KBBLEN 

OOOOOOF4 

DSDECI 

010B60t 

DTC5 

00000004 

FDI8SSSD 

011492+ 

FINTNRDY 

00000002 

XBBREAR 

00000006 

DSDECY 

01DB7E+ 

DTC8 

00000003 

FDIHCTl 

01166A+ 

FINTRDY 

00000001 

KBB5RSV 

OOOOOOOA 

DSDEFOF 

00000060 

DTLOCL 

00000001 

FDINCT2 

011690+ 

FLl 

0105E2+ 

KBCC600 

00000017 

DSESC 

010A3Ef 

DTNDEV 

30000000 

FDINCT5 

0116A0+ 

FL2 

010SS8+ 

KBCCBRK 

00000008 

DSESCl 

Q10A44f 

DTOMNI 

00000002 

FDINCT9 

0116AC+ 

FL3 

0105C4+ 

KBCCGO 

0000000? 

OSESC2 

010AS4+ 

ECHOED 

ooooooco 

FDINCTS 

011658+ 

FL4 

0105CE+ 

KBCCNTL 

OOOOOOFD 

DSETBL 

OlODHf 

ECHOOP 

00000002 

FDINIT 

0114DA+ 

FL5 

0105DC+ 

KBCCOFF 

00000002 

DSEXIT 

010AQS+ 

ENDOF 

00000010 

FDLCMD 

011500+ 

FLASH 

010596+ 

KBCLCA 

00000061 

DSHOHEH 

0008DSSE 

FBOOT 

01140E+ 

FDLCMDl 

011504+ 

FMPS 

00000010 

KBCLCZ 

0000007A 

DSHONEV 

0008D506 

FBOOTl 

01 1430 + 

FDLY 

00000004 

F5DCMPEN 

00000002 

KBCLOCK 

OOOOOOFC 

DSINCX 

Q10B20t 

FBOOT9Q 

01144A+ 

FDMTROF 

0114EE+ 

FSDCPM 

00000008 

KBCNOCH 

OOOOOOFF 

DSINCY 

010B48+ 

FOSLKIO 

01144C+ 

FDNRDY 

011768+ 

FSTPRTIQ 

00000002 

KBCQHRK 

0000003F 

DSIMIT 

S1096Ef 

FDCAD 

00000010 

FDNRDYl 

011774+ 

FSTPRT15 

00000003 

KBCQUAL 

0000007F 

D5INIT1 

010992 + 

FDCCMDR 

OOOOOOlO 

FDNRDY2 

011782+ 

FSTPRT3M 

00000000 

KBCSHFT 

OOOOOOFE 

OSINIT2 

01 099A+ 

FDCCRD 

011594+ 

FDOKSTA 

011702+ 

FSTFRT6M 

OQQOOOOl 

KBDSINT 

00000700 

DSKREAD 

00000032 

FDCCRDl 

0115AC+ 

FDRCDOR 

00000004 

FUPDTTRK 

00000010 

KBFCLOS 

00000002 

DSKVRIT 

00000033 

FOCCRD2 

Q115B0+ 

FDRCRD 

00000004 

FVERIFY 

00000004 

KBFCNTL 

00000004 

DSHAZXH 

000002CF 

FDCCRD3 

Q115B8+ 

FDRCSK 

00000004 

GAVEUP 

00000080 

KBFEMTY 

00000001 

DSKAXIV 

0000022D 

FDCCRD4 

0115C2+ 

FDRDSTA 

01178C+ 

GDATA 

QQQ00016 

KBFFULL 

ooooooco 

DSHAIYH 

0000022F 

FDCCRD5 

0115CA+ 

FDRDWR 

011528+ 

GOTOBT 

010496+ 

KBFLOCK 

00000005 

DSHAXYV 

000002CF 

FDCCRD6 

0115D6+ 

FDRDWRl 

011542+ 

GOTOBTl 

010498+ 

KBFSHF7 

00000003 

DSNITST 

0109FE+ 

FDCCRST 

011734+ 

FDRDVm? 

011554+ 

COTOBT2 

0104A4+ 

KBGCHRl 

0107CCt 

DSFBASE 

00080000 

FDCCSIN 

011744+ 

FDR5T 

011716+ 

GOTQBT3 

0104B4+ 

KBCCKR2 

0107E8+ 

DSFEND 

OOOBEDOO 

FDCC5K 

011754+ 

FDR5T0 

01171E+ 

GRAPHIC 

00000001 

KBGCHR3 

010800+ 

DSFIEN 

OOOOEOOO 

FDCCSKl 

01175C+ 

FDRSTl 

011722+ 

HDRERR 

00000083 

KBGETCH 

0107C0+ 

DSFSTl 

0109CA+ 

FDCC5K2 

011764+ 

FDRST2 

01172E+ 

IMCTEST 

010544+ 

KBGETKY 

010808+ 

DSFST9 

Q109D2+ 

FDCCSOT 

01174C+ 

FDRSTV 

Q117QC+ 

INITOP 

00008020 

KBINIT 

010722+ 

DSFUTCH 

0109DS+ 

FDCCSTP 

01173C+ 

FDRWSTl 

01179C+ 

INTDCO 

010604+ 

KBINITl 

01076E+ 

DSPUTST 

0109C6+ 

FDCDATR 

00000016 

FDRWSTA 

011790+ 

nfTDCl 

01061E+ 

KBINTR 

010780+ 

DSRESET 

010A04+ 

FDCLCT8 

011650+ 

FDSECIO 

011464+ 

IMTKYBO 

0105E8+ 

KBINTRl 

0107A0+ 

DSRTRN 

010B36+ 

FDCLCT9 

011654+ 

FDSECR 

011S5A+ 

IHTLVL7 

0105E6+ 

KBINTR2 

01Q7AE+ 

DSRTRNl 

010B38 + 

FDCLCTS 

01160C+ 

FDSECRl 

011564+ 

INTOMNI 

010616+ 

KBINTR? 

0107BA+ 

DSSHOVl 

010A74+ 

FDCRST 

00000087 

FDSECR2 

011568+ 

INTSLOT 

010630+ 

KBHSK40 

GOOOOOIF 

DSSKOV2 

010A78+ 

FDCSECR 

00000014 

FDSECR3 

011584+ 

imiMR 

0105FA+ 

K6PR01 

010836+ 

OSSKOV3 

010AAA+ 

FDCSEEK 

OOOOQOiS 

FDSECR9 

01158C+ 

INUSE 

00000085 

KBPR02 

010850+ 

OSSHOVi 

010AC0+ 

FDCSTP 

00000035 

FDSECRV 

01155A+ 

IMVCURS 

00000003 

KBPR03 

010B5A+ 

DSSHOV7 

010ACA+ 

FDCSTPIN 

OOOOOOSS 

FDSEEK 

0116DA+ 

lOBEEPFQ 

OQ030F71 

KBPR09 

01085C+ 
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KBPROKY 

!I188l8f 

LDSYNCl 

01108E+ 

NIRQ2 

00000003 

RAMKBBUF 

00000300 

SBSTROB 

011220+ 

KBPUTl 

010872+ 

LDSYNC2 

011098+ 

NIRQ3 

00000006 

RAHXBLEN 

00000100 

SBUSER 

010436+ 

KBPirrx 

01087C+ 

LDSYNC3 

0110AA+ 

NIRQ4 

00000007 

RAHLEN 

00001000 

SBUSY 

OOOOOOOO 

KBPUTCH 

0108SE+ 

LDSYNC5 

0110B6+ 

NNMIl 

OOOOOOOO 

RAMMXBUC 

00000400 

SBWl 

01122C+ 

KBQUAL 

010884+ 

LDSYNC6 

0110BA+ 

NNMI2 

OOOOOOOl 

RAMSIZ9 

010S8C+ 

SBUAIT 

011228+ 

KBQUALi 

01088E+ 

LD5YNC9 

0110C4+ 

NNMI3 

00000002 

RAHSIZE 

010564+ 

SBWEXIT 

01123C+ 

KBQUAL2 

010898+ 

LDVAIT 

011016+ 

NNMI4 

00000003 

RAHTSTl 

0101C2+ 

SCIO 

01128C+ 

KBQUAL3 

01Q8A0+ 

LDWAITI 

01101A+ 

NOBUFR 

00000092 

RAMTST2 

0101E4+ 

SC12 

01I29C+ 

KBQUAL8 

0108AA+ 

LDVAIT2 

011024+ 

NOSCROLL 

00000005 

RAMWK5TA 

00000700 

SC20 

Q112CC+ 

KBQUAL? 

01QSAC+ 

LDWIOl 

010FAE+ 

NOSOCKT 

00000082 

RBDBLK 

FFFFFFFF 

SC30 

D112F6+ 

KBRCMND 

0C030F0S 

LNBUF2 

00000036 

NOTRANS 

00000090 

RBDOPCO 

FFFFFFFD 

SC32 

flll2FC+ 

KBRCNTL 

00030F07 

LONGCMDS 

011336+ 

OBOOT 

0110CC+ 

RBDUNT 

FFFFFFFE 

SC40 

D1130A+ 

KBRDATA 

00030F01 

LS1SD2SD 

00000004 

OOBLKl 

8111SC+ 

RBUSY 

FFFFFFEE 

SC50 

01131E+ 

KBRSTAT 

00030F03 

LS8INMIN 

00000003 

OOBLK2 

011170+ 

RDYAOR 

00030F7F 

SC60 

01132C+ 

KBRTABLE 

01090E+ 

LSORQ 

OOOOOOOO 

ODBLK3 

011180+ 

RCCVOP 

OOOOOOFO 

SC70 

01133A+ 

XB3TABLE 

0108AE+ 

LSDSKCHG 

00000006 

ODBLKIO 

011130+ 

RERRUNOV 

FFFFFFCO 

SCERRl 

011344+ 

LBOOT 

C10EFA+ 

LSFMMFM 

00000007 

ODCMDl 

011114+ 

RESTSKT 

OOOOOOAO 

SCERR2 

01134A+ 

LBOOTIO 

01GF02+ 

LSINT 

00000001 

ODCMD2 

011126+ 

RGOOD 

OOOOOOOO 

SCERR3 

01134E+ 

LBOOT30 

flI0F18+ 

LSTRR 

OOOOOOOO 

ODCMD9 

01112A+ 

RHDR 

00000006 

5CEXIT 

011332+ 

LBOOT81) 

010F30+ 

MARCH 

010318+ 

ODCOMND 

0110E6+ 

RHDSKLN 

ODOOOOOA 

5CMD2 

0113DC+ 

LBOOTYO 

010F6E+ 

MEHCLR 

010214+ 

OODSKl 

0111AQ+ 

RHDSKRC 

OOOOOOOC 

SCMD3 

Q113EE+ 

LC8INMIN 

00000006 

MEMTE3T 

010204+ 

ODDSK2 

0111B6+ 

RHPKTLN 

00000006 

SCMD4 

011400+ 

LCDEO 

00000001 

MOTOROFF 

OOOGGOlO 

ODDSK3 

0111C4+ 

RHPKTRC 

00000006 

5CPT5SD 

00000010 

LCDEl 

02000004 

MOTORON 

00000012 

ODDSK4 

aillE6+ 

RHSOR 

00000007 

SCPT8DD 

OOOOOOIA 

LCFLP8IN 

00000006 

MRl 

01051C+ 

OOOSK3 

0111EA+ 

RKVRERR 

FFFFFFFC 

SCPT8SD 

OOOOOOIA 

LCFLPSDi 

00000000 

KR2 

010526+ 

ODDSK6 

0111F0+ 

RLOSTDEV 

FFFFFFFB 

SCRCERR 

00000003 

LCFKKFM 

00000007 

MR3 

010336+ 

ODDSK9 

0111F2+ 

RNQTRDY 

FFFFFFEC 

SDRQ 

OOOOOOOl 

LCMDl 

011362+ 

MREHR 

010342+ 

ODDSKIO 

011190+ 

ROMBASE 

00010000 

SDTOVER 

00000002 

LCMD3 

011370+ 

MSGl 

01063A+ 

ODDV 

00000024 

ROHEND 

00012000 

SOTUNOR 

00000002 

LCMD4 

01138A+ 

MSG 10 

0106B2+ 

OOOVHI 

OQ00002S 

RONLCN 

00002000 

SE LBOOT 

01Q3C0+ 

LCMDJ 

011392+ 

MSG 11 

0106D1+ 

OOOVLO 

00000026 

ROMTST 

010404+ 

SENDOP 

00000040 

LCMD8 

01139E+ 

MSG 12 

01O6D9+ 

ODVALID 

00000Q2C 

ROHTSTl 

0101A6+ 

SETCO 

01123E+ 

LCMD7 

0113AC+ 

MSG 13 

0106OF+ 

ODVRAD 

00000026 

RPTSTl 

010376+ 

SETGOl 

011262+ 

LCKDERR 

3113BE+ 

MSG 19 

0106E6+ 

OFF 

OOOOOOOO 

RPTST2 

010396+ 

SET INTV 

010244+ 

LCMDEX 

0113C6+ 

NSG2 

010680+ 

ON 

OOOOOOOl 

RPTST8 

01039E+ 

SETMB 

010232+ 

LCMDOK 

0113C2+ 

MSG3 

010683+ 

FHASEGOF 

OOOOOOOO 

RPTST9 

0103B6+ 

SETRECV 

011232+ 

LCMDR 

30000000 

MSG30 

Q106F2+ 

PHASEOON 

00000002 

RPTSTAT 

010366+ 

SETUP 

0100B4+ 

LCMOTORO 

OOOOOCQS 

MSG31 

0106FF+ 

PHASEIOF 

00000004 

RRNF 

FFFFFFED 

SETUP 1 

0100C2+ 

LDBLKIG 

010F8C+ 

MSG32 

010708+ 

PHASE ION 

00000006 

RSEEKCRR 

FFFFFFEF 

SETUP 2 

0100C6+ 

LDDSKl 

01104E+ 

HSG4 

010693+ 

PHASE20F 

00000006 

RTl 

0104D8+ 

SETUP3 

0100CA+ 

LDDSKIA 

011054+ 

MSGCPY 

010090+ 

PHASE20N 

OQOOOOOA 

RTICRR 

0101DA+ 

SHDLDO 

00000003 

LODSK2 

01105C+ 

MXBBASE 

00020000 

PHASE30F 

OOOOOOOC 

RT2CRR 

0101FA+ 

SHDR 

OOOOOOOE 

LDDSK3 

011064+ 

MX BEND 

00022000 

PHASE30N 

OOOOOOOE 

RVRPROT 

FFFFFFFO 

SHFMLN 

00000014 

LDDSX9 

011O7A+ 

HIBENTRY 

00020008 

PHASEOFF 

OOOOOOOO 

SBBOOT 

010446+ 

SHORTCHD 

0113CA+ 

LDDSKIO 

011036+ 

MIBINIT 

00020004 

PH AS CON 

00000002 

SBDEBUG 

0103DC+ 

SHPKTRC 

OOOOOOOC 

LDCETBB 

010F70+ 

MXBLEN 

00002000 

PRIOR 

OOOOOOOl 

SBERR 

011214+ 

SHTOLN 

00000012 

LDCETBX 

010F8A+ 

NBLKSSD 

00000118 

PROHLCVL 

00000006 

SBEZIT 

011218+ 

SINDEX 

OOOOOOOl 

LDRIOl 

010FC6+ 

NBLK8DD 

000003E9 

PROHVERS 

OOOOOOOO 

SBFLPy 

010414+ 

SLOTIAD 

00030001 

LDRI03 

O10FCC+ 

NBLKSSD 

000001F4 

Q6H 

OOOOOOIA 

SBFLPYl 

010422+ 

SLOTAOR 

010648+ 

LDRTRN 

010FE2+ 

NBUFl 

OOOOODOO 

Q6L 

00000018 

SBFLPY2 

01043C+ 

SLOTID 

010278+ 

LDSEND 

010FEC+ 

NBUF2 

00000E02 

Q7H 

OOOOOOIE 

SBFLPY3 

010442+ 

SLOTIDl 

010266+ 

LDSENDD 

010FFA+ 

NDEVIAD 

00030001 

Q7L 

OOOOOOIC 

SBLOCAL 

010408+ 

SLOTID2 

0102D4+ 

LDSENDl 

011000+ 

NIBL 

0118AE+ 

RAHBASC 

OOOOOOOO 

SBKSG 

010448+ 

SLOTID3 

0102CA+ 

LDSYNC 

011082+ 

NIRQl 

00000004 

RANEND 

00001000 

SBOMNI 

01D3FC+ 

SLOTID8 

010302+ 
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SLOTID9 

01030Ci 

SRAHRDl 

00000080 

TCDTALN 

SLOTIOA 

010340> 

SRAMVT 

OOOOOOCO 

TCHDRLM 

SLOTIDB 

01035Af 

SHECTYP 

OOOOOOQS 

TCMD 

SLOTPTR 

00030100 

SRNF 

00000004 

TCOP 

SLTADOFS 

00000200 

SSEEXERR 

00000004 

TCRADHI 

SLTSTAD 

00030A01 

STRADR 

00030FA1 

TCRADLO 

SNDCHDS 

0112DSi 

STRKO 

00000002 

TCSOCK 

SNORE ST 

0U2AE> 

STHOBIT 

OlllFAt 

TIMEOUT 

5NOTRDY 

0000000? 

sun 

Q102S2i 

TKPS5SD 

SRAHLN4 

00000014 

SVLCMD 

00000000 

TKPS8DD 

SRAHLNS 

OOOOOOIC 

SVRFAULT 

00000005 

TXPSBSD 

SRAKLNi 

00000020 

SWRPROT 

00000006 

TOINTVL 

SRAHLNV 

00000022 

TCDADHI 

OOOOOOID 

TOOLONC 

SRAHRD4 

00000000 

TCDADLO 

OOOOOOIE 

TRKCNT 

SRAHRD5 

00000040 

TCDEST 

00000023 

TRKN 


0 errors. 4715 lines. 


00000020 

USRBASE 

0008E000 

WRBITOFS 

OOOOOOIA 

00000022 

VERT 

00000000 

WRCHARPT 

00000000 

00000018 

VIABASE 

00030FOO 

WRCURADR 

00000008 

00000018 

WAITING 

OOOOOOFF 

WRCURSX 

00000016 

00000019 

WALKBIT 

0l04E6i 

WRCUR5Y 

00000018 

OOOOOOIA 

VBl 

0104F0t 

WRGRORCX 

OOOOOOIC 

OOOOOOIC 

WB2 

Q104F4 + 

WRGRORGY 

OOOOOOIE 

00000091 

VB3 

010S02f 

WRHOMEOF 

QOOOOOflC 

00000023 

WBERR 

010516+ 

WRHOHEPT 

00000004 

0O00G04D 

WHOOP 

00000001 

WRLENGTH 

00000024 

0000004D 

WRAPON 

00000004 

VRLNGTHX 

00000012 

OOOOFFFE 

WRATTRl 

00000020 

WRLNGTHY 

00000014 

00000081 

WRATTR2 

00000021 

WRRCDLEN 

00000023 

00000000 

WRBASEX 

GOQOOOOE 

WRSTATE 

00000022 

00000002 

WRBASEY 

00000010 

ZERORAM 

01058E. 




ASHiSK Cross Reference O.Old 
Cross-Reference Listing 
File ID CC.PROH.TEXT 


07 Sep 1H2 


D«te: Nov 1, 1902 


ItBOOT 

A18 

3724* 




liBOCTl 

3739* 





A8OOT90 

3737 

3745 

37 47 

3751* 


ADCON 

39 6i* 

3971 

3974 

3977 

3980 3983 

AOBIOl 

3785 

3789* 




ADBI09 

3787 

3792* 




AOBLRIO 

23A 

3727 

3744 

3746 

3781* 

ADCCRD 

4193 

4228* 




ADCCROl 

423 7 * 

4244 




ADCCRD2 

4237 

4240* 

4241 



ADCCRD3 

424 3* 

4253 

4261 



ADCCR04 

425G* 

425 1 




ADCCRD5 

4258* 

4259 




ADCCRD8 

42 38 

4327* 




ADCCR09 

4286 

4325 

4329* 



ADCC5IN 

3472 

4604 

4635* 



ADCCSR 

46 6 1 

4680* 




ADCC3K1 

4692* 

4720 




ADCCSK2 

4695 

4703* 




AOCCSX3 

4701 

4708* 




ADCCSK4 

4709 

4712* 




ADCCSKS 

4713 

4716* 




ADCCSX8 

^694 

4722* 




ADCCSK9 

4686 

4729* 




ADCCSOUT 

4607 

4631* 




ADCCSTP 

4718 

475 1 * 




ADCLRFH 

472 3 

4758 

4772* 



ADFSEC 

4191 

4417* 




AOF3EC1 

4422* 

443 1 




ADFSEC2 

4424 

4431 * 




ADFSEC8 

4435* 





ADF5EC9 

4430 

4437* 




ADFSNRV 

4415* 

4420 




ADISSSSC 

37 35 

4016* 




AuILVTB 

4021 

4034* 




AD I NIT 

258 

3736 

4042* 



ADINLV 

4167* 

4182 




ADINLV9 

4169 

4171* 




ADMTROF 

3790 

3825 

4077 

4105* 


ADNTRGN 

3820 

4075 

4111* 

4126 


ADRCAD 

4465* 

4467 




ADRCRD 

4226* 

4233 




ADRC3C 

4179* 

4187 




ADRCSK 

4571* 

4575 




ADRD4 

4276 

4337* 

4338 

4342 


ADRD4B 

3834 

4336* 




ADRD4E 

3834 

4344* 




ADRDS 

4297 

4306 

4315 

4350* 

4357 

AORD5B 

3835 

4349* 




ADR05E 

3835 

4361* 




ADRDA 

4284 

4367* 




ADRD6 1 

4368* 

4369 

4371 



AORD62 

4375* 

4376 





3999 



ADROi? 

4379 

4382* 




ADRDAB 

383& 

4366* 




ADHDiE 

3836 

4384* 




ADROAD 

4422 

4467* 

4580 



ADRDADl 

4469* 

4477 




ADRDA02 

4469 

4474* 

4475 



ADRDAD3 

4476* 

4484 

4491 



ADRDAD3A 

44(0* 

4482 




ADR0AD3B 

4487* 

4489 




ADRDAD4A 

4S00* 

4502 




ADRDAD4E 

45U* 

4513 




ADRDAD4C 

4522* 

4524 




ADR0AD4D 

4533* 

4535 




AORDAOSA 

4504* 

4506 




ADRDA0S6 

4315* 

4517 




ADR0AD5C 

4526* 

4528 




AORDAOSO 

4537* 

4539 




AORDAOA 

4549* 

4550 




AORDAD7 

4556* 

4557 




ADRDA08 

4470 

4545 

4552 

4559 

4562< 

AORDVR 

3789 

4115* 




AORDVRl 

4150* 

4155 




AOROVR9 

4125 

4148 

4151 

4153 

4157' 

ADRST 

4076 

4617* 




AOSCIOl 

3812 

3815* 




ADSCIO? 

3822 

3825* 




ADSECIO 

257 

3729 

3811* 



ADSECR 

3823 

4152 

4181* 



ADSECRl 

4198* 

4194 




ADSECR2 

4192 

4197* 




AOSECR9 

4195 

4199* 




AOSEEK 

3821 

4147 

4573* 



ADSEEKl 

4622 

4648 

4657* 



ADSETPH 

4752 

4767* 




ADSIOl 

4633 

4637* 




ADS 1 02 

4643 

4646* 




A05IQ3 

4645 

4648* 




ADSKl 

4575* 

4605 

4608 



ADSK2 

4578* 

4587 




ADSK3 

4584 

4593* 




ADSR4 

4602 

4607* 




ADSK9 

4588 

4601 

4610* 



ADTBLOF 

4768 

4780* 




ADTBLON 

4754 

4777* 




ADVAITl 

4396* 

4404 




ADVAIT2 

4397* 

4403 




ADVAITB 

3837 

4394* 

4726 

4756 

4762 

ADVAITE 

3837 

4407* 




AMBUF 

3873* 

4429 

4485 

4596 

4600 

AMCHKSM 

3880* 





AM5EC 

3879* 

3880 

4429 



AHTRK 

3878* 

3879 

4596 

4600 


AMVOL 

3877* 

3878 




APLSVAR 

3858* 

3873 

4593 

4618 

4639 

SADDEST 

2280* 





BADSOCK 

2278* 





BASERAH 

2850* 





BLKSZ 

2786 

2853* 

3397 

3782 






BPS5ISD 

2885* 

4022 


BFS8IDD 

2814* 

3058 


BPSSISD 

2883* 

3044 


CFRCiNT 

2983* 

3705 


CKEND 

35 1 

358* 


CHENDl 

339* 

359 


CHERR 

337 

339 

341 

CHERRl 

35 4* 

354 


CMDACPT 

227 1* 

2527 

2614 

CNSTSKT 

229 7* 

2314 

2555 

CPABLXIQ 

179* 



CPAINIT 

181* 



CPASCTIQ 

180* 



CPBLKIO 

113* 

1951 

2305 

CPBT3LOT 

100* 

680 

687 

CPBTSRVR 

101* 

529 

689 

CPCKSUM 

162* 

368 


CPDISKRC 

109* 



CPDSCVUC 

189* 



CPDSINIT 

186* 



CPDSKIO 

114* 

1953 

2307 

CPDSPFLC 

131* 

1598 


CFDSPUTC 

187* 



CPD5FUT3 

188* 



CPEXTCRT 

148* 

311 


CPFBLKIO 

176* 



CFFBOOT 

175* 



CPFBOOTJ 

174* 



CPFBPS 

122* 

3044 

30 58 

CPFDVSZ 

121* 

3043 

3057 

CPFINIT 

178* 



CPFINLV 

110* 

4029 

4166 

CFFOFST 

126* 

3062 

3406 

CPF5C7I0 

177* 



CPFSPD 

125* 

3061 

3414 

CPF3PT 

123* 

3045 

3059 

CPFTFS 

124* 

3046 

3060 

CPFTYP 

127* 

3447 

4027 

CFIOBUF 

146* 

3853 


CPI57ACK 

150* 

301 


CFIVECl 

192* 

436 


CPIVEC2 

193* 



CPIVEC3 

194* 



CPIVEC4 

195* 



CPIVEC5 

196* 



CPIVEC6 

197* 



CPIVEC7 

198* 



CFKBCE7C 

184* 



CFKBINI7 

183* 



CPLBLKIO 

171* 



CPLB007 

170* 



CPLB007J 

169* 



CPLDSKIQ 

172* 



CPOBLKIO 

166* 



CPOBOOT 

165* 



CPOBOOTJ 

164* 



CPODSKIO 

167* 



CPOMNIBF 

152* 

2320 

2359 


343 345 347 345 353« 

2648 2688 


2724 3728 

1948 1967 2303 2720 3724 

1949 1964 


2726 3730 


3395 4022 4282 4313 
3133 4021 4121 


3438 3444 4026 
4025 

3402 3437 4023 4418 
3410 3446 4024 


2401 



CPOMNIRC 110* 

CPOHNRAH 139* 

CPOSBLK 106* 

CP05DRV 105* 31U 

CPOSSLOT 103* 2721 3370 3375 3725 

CPOSSRVR IH* 

CPROMLVL 161* 

CPROMVRS 160* 

CPSCNOFS 130* 1383 15H 1459 1722 1758 1795 1805 

CPSLIRAM HO* 2850 3374 

CPSLITYP 133* 456 ‘601 1936 

CPSL2RAM m* 

CPSLITYP 134* 

CPSL3RAK 142* 

CPSL3TYP 135* 

CPSL4RAH 143* 

CPSL4TYP 134* 

CPSL5TYP 137* 

CPSTACK 147* 382 414 

CPSYSR3T 158* 

CPSYSST 149* 355 372 387 400 408 497 514 538 544 

CPTPRNBR 108* 509 

CPUKIQID 159* 

CPUSERIO 114* 

CPUSERNM 118* 

CPWNDRCD 129* 1390 1394 1438 

CRDAH 2980* 

CRDSEC 2975* 3282 

CRDTRK 2981* 

CRESTORE 2967* 3572 

CSATTRl 1341* 

C5ATTR2 1343* 

CSBPCH 1337* 

CSDATA 1344* 1508 1839 1858 

CSEEK 2948* 3574 

CSFRSTCH 1338* 1457 1501 1507 

CSIASTCH 1339* 1503 

CSLPCH 1336* 1512 1446 

CSKASK 1340* 1514 1650 1723 

CSTEP 2949* 3573 

CSTEPIN 2970* 3574 

CSTEPOUT 2971* 3575 

CSUKRD 3849* 

CURSON 1368* 

CURTRX 3845* 3869 4598 4619 4423 4640 4485 4492 4493 4498 4700 4703 4704 4716 

CVRSEC 2976* 

CWRTRK 2982* 

DCBLKHI 2218* 2345 

DCBIKLO 2217* 2363 

DCDRV 2216* 2342 

DCLEN 2219* 2344 

DCHD 2215* 2214 2217 2218 2219 2361 2404 2550 

DEBOP 2292* 

DEVADQFS 2842* 3372 

DIYIOOH 4392* 4394 

DNIBL 3922* 4254 

DNIBL2 3898* 4295 

DMIBL3 3899* 4304 


4722 



0NIBL4 

3900* 

4312 





DRVOEN 

3988* 






DRVIEN 

3987* 






DSADDR 

U64 

1721 

1734 

1785* 



DSADDRH 

1 7 87* 






DSADDRV 

1787 

1799* 





DSCBLNR 

1328* 

1505 





DSCCR 

632 

922 

922 

925 

725 

926 

D5CDIFF 

1331* 

1411 





CSCELLV 

1319* 

1509 

1581 

1617 

1640 

1765 

DSCEILY 

1320* 

1607 

1635 

1683 

1693 

1713 

DSCESC 

1327* 

1455 





DSCLAL 

Ull 

1673* 

1821 




DSCLCA 

1329* 

1407 





DSCLCZ 

1 330* 

1409 





DSCLEL 

1678 

1706* 

1822 




D3CLEL1 

1707 

1713* 





DSCLEL2 

1711 

1716* 





DSCLES 

167 8* 

1823 





DSCLESl 

1683* 






DSCLE32 

1680 

1672* 





DSCLE33 

1693* 

1699 





DSCIES9 

1686 

1670 

1675 

1701* 



DSCLRH 

1689 

1715 

1730* 




DSCLRHi 

1737 

1739* 





CSCLRH2 

1 747* 

1759 





DSCLRH3 

1749 

1751* 





DSCLRH4 

1753* 

1754 





DSCLRH5 

1752 

1755* 





DSCLRH6 

1756 

1758* 





D5CLRV 

1698 

1710 

1717* 




B5CLRV1 

1725* 

1727 





DSCRSAO 

1645 

1663* 





0SCR5D 

1605* 

1815 





DSCRSH 

1626* 

1820 





BSCRSHl 

1627* 

1673 





DSCRSL 

1616* 

1813 





DSCRSH 

1579* 

1817 





DSCHSU 

1 590* 

1816 





DSCSETH 

1385 

1829 

1839* 




DSC5ETV 

1389 

1508 

1837 

1848 

1858* 

1851 

DSCTBl 

1467 

1813* 

1813 

1814 

1815 

1816 

DSCTL 

1458 

1463* 





DSCURS 

1396 

1585 

1600 

1610 

1620 

1627 

D3CURS3 

1579 

1570 

1576 

1605 

1616 

1626 

DSCURS 1 

1652 

1655* 





D5CURS2 

1654 

1657* 





DSCURS 3 

1658* 

1660 





DSCVTUl 

1408 

1410 

1412* 




OSCVTUC 

270 

629 

1407* 

1500 



DSDECZ 

1617* 






DSDECY 

1571 

1633* 





DSDEFOF 

1316* 

1383 





DSESC 

1474* 

1827 





DSESCl 

1477* 

1481 





0SESC2 

1478 

1484* 





OSETBL 

1475 

1620* 

1820 

1821 

1822 

1123 

DSEXIT 

1448 

1452* 

1461 

1464 

1466 

1469 


m 727 727 727 732 734 73S 

1S40 18S7 

1840 18S7 


1817 1818 

1834 U38 U4S* 177S 
U44‘ 1706 1716 1773 


1326* 



OSHOHEH 

1317* 

1830 

1831 

DSHOHEV 

1318* 

1849 

1850 

DSINCZ 

1460 

1580* 


DSINCY 

1599 

1606* 


DSIHIT 

267 

443 

1362* 

DSIKITl 

1387 

1390* 


DSINIT2 

1392* 

1393 


DSXREAD 

224* 

1996 

2738 

DSKVRIT 

225* 

1992 

2034 

DSHAHH 

1321* 

1833 


DSMAIXV 

1323* 

1852 . 


DSMAXYH 

1322* 

1833 

1835 

DSMAIYV 

1324* 

1852 

1854 

DSNZTST 

1447* 

1456 


DSPBASE 

79* 

81 

360 

DEFEND 

81* 

S3 

152 

DSPLEN 

88* 

81 


D5PST1 

1422* 

1425 


DSPST9 

1423 

1427* 


DSPUTCH 

268 

550 

631 

DSPUTST 

269 

446 

448 

DSRESET 

1450* 

1482 

1466 

DSRTRN 

1596* 

1816 


DSRTRNl 

1584 

1597* 


DSSHOVl 

1502 

1505* 


DSSHOV2 

1504 

1507* 


D3SHOV3 

1 525* 

1533 


OSSHOV6 

1516 

1540* 


DSSHOV7 

1546* 

1572 


DSSHOV9 

1534 

1573* 


DSSHV71 

1550 

1552* 


D5SHV72 

1553 

1555* 


DSSHV73 

1556 

1558* 


DSSHV74 

1559 

1561* 


DSSKV7S 

1562 

1564* 


OSSHV76 

1546 

1565 

1 567* 

DSSHVCK 

1459 

1500* 


DSSTO 

1455* 

1826 


DSSTBL 

1443 

1826* 

1826 

DSTAB 

1763* 

1614 


DSTABi 

1770 

1773* 


DSVNDH 

1384 

1829* 


DSVNDV 

1388 

1848* 


DSVRAF 

1631 

1638* 


DSVRAFZ 

1618 

1631* 


DTAS 

214* 

488 

607 

DTC5 

213* 



DTC8 

212* 

494 

60S 

DTLOCL 

210* 

482 

1940 

DTNDEV 

209* 



DTOHNI 

211* 

531 


ECHOED 

514 

2272* 


ECHOOF 

511 

2293* 


ENDOP 

2291* 



FBOOT 

615 

2720* 


FBOOTl 

2735* 



FBOOT90 

2733 

2741 

2743 

FDBLXIO 

253 

2723 

2740 


3742 

2134 2367 2402 2823 3784 3811 


420 838 842 

361 634 


633 1424 1436* 

4S0 S41 S47 SS2 359 S8S 


1827 


3447 4027 


2746* 

2742 2785* 


621 623 


627 


674 14 



FDCXD 

2955* 

2959 

2960 

2961 

FDCCMDR 

2959* 

3282 

3582 

3587 

FDCCRD 

3210 

3277* 



FDCCRDI 

3284* 

3284 



FDCCRD2 

3216* 

3287 



FDCCRD3 

3291* 

3296 

3300 


FDCCRD4 

3295* 




FDCCROS 

3293 

3299* 



FDCCRD6 

3297 

3306* 



FDCCRST 

3524 

3561 

3582* 


FDCCSIN 

3457 

3592* 



FDCC5K 

3516 

3527 

36 03* 


FOCCSKl 

3607* 




FDCCSK2 

3614* 




FDCCS07 

3597* 




FDCCSTF 

3587* 




FDCOATR 

29k3* 

3299 

3604 


FDCLCT8 

3415 

3421* 



FDCiCT9 

3413 

3419 

3423* 


FDCLCT5 

3106 

3394* 

4124 


FDCRST 

3572* 

3582 



FuCSECR 

2962* 

3281 



FDCSEEK 

3576* 

3607 



FDCSTP 

3573* 

3587 



FDCSTPIN 

3574* 

3592 



FDCSTPOT 

3575* 

35 97 



FDCSTRR 

2960* 

3286 

3336 

3493 

FDCTRKR 

296 1* 




FDEBLCK 

3132 

3134 

3421 

3470 

FDE3U5Y 

3656 

3673 

3705* 


FDECRC 

3651 

3671 

3683* 


FOEHERR 

3693* 




FDENRDY 

3658 

3675 

3709* 


FDEOPCD 

2825 

3690* 

3786 

3813 

FDEPROT 

3663 

3696* 



FDERNF 

3653 

3702* 



FDERSTA 

3679* 

3685 

3688 

369 1 

FDESEEK 

3669 

3699* 



FDEUNIT 

3687* 




FDGETADR 

2828 

3039 

3053 

3068 

FDI83S 

3047 

3061* 



FDI8SSOD 

3052* 




FDI8S5SD 

2731 

3038* 



FDINCTl 

3440 

3444* 



FDINCT2 

3453 

3461* 



FDINCT5 

3448 

3469* 



FDINCT9 

3442 

3456 

3459 

3465 

FDINCTS 

3164 

3436* 

4154 


FDINIT 

255 

2732 

3068* 


FDLCMD 

3108* 

3135 



FOLCMDl 

2833 

3074 

3113* 


FDLY 

2997* 




FDHTROF 

2839 

3076 

3098* 

3168 

FONROY 

3304 

3583 

3588 

3593 

FDNRDYl 

3627* 

3628 

3629 


FONRDT2 

3631* 




FDOKSTA 

3659 

3677* 



FDRCDOR 

3199* 

3205 




2962 2963 

3592 3597 3607 3705 


3632 3641 3661 3666 

3684* 4120 4122 

3694 3677 3700 3703 3707 3710 

3127 3367* 3816 4017 4042 4115 

3474* 


3598 3608 3623* 



FDRCRD 3198* 3202 

FORCSX 3S12* 3520 

FDRDSTA 3217 3681* 

FDRDVR 2788 3127* 

FDROVRl 31S9* 3166 

FDRDVR9 31S7 3160 3163 316S 3168* 

FDRST 3075 3468 3554* 

FDRSTO 3548 3557* 

FDRSTl 3559* 3563 

FDRST2 3560 3565* 

FORSTV 3546* 

FDRVSTi 3655* 

FDRV5TA 3650* 

FDSECIO 254 2725 2823* 

FDSECR 2837 3201* 

FDSECfll 3205* 3214 

FD3ECR2 3207* 3212 

FDSECR3 3217* 

FDSECR9 3209 3218 3221* 

FDSECRV 3161 3179* 

FDSEEX 2834 3156 3514* 

FDSEEKl 3522* 3529 
FDSEEK6 3523 3526 3533* 

FDSEEK9 3515 3518 3535* 

FDSiOl 2824 2827* 

FD3I02 2837* 

FDSI09 2835 2839* 

FDSXSTl 3664 3668* 

F05KSTA 3458 3517 3531 3555 3666* 

FDSVS7A 3547 3661* 

FDTMOHI 3485* 3491 

FDTMOLO 3486* 3490 3624 

FDVRDY 3208 3455 3488* 3514 3522 3525 3559 

FDVRDYl 3493* 3494 3495 

FDVRDY9 3496 3499* 

FHLD 2987* 

FINTIDXF 3003* 

FINTIMM 3004* 3705 

FIKTNRDY 3002* 


FINTRDY 

300 1* 


FLl 

838* 


FL2 

839* 

841 

FL3 

843* 

845 

FL4 

847* 

847 

FL5 

850* 

850 

FLASH 

356 

373 

FMPS 

2996* 



FSDCHPEN 2999* 
rSDCPM 2998* 
FSTPRTIQ 2993* 


FSTPRT15 

2994* 

3572 




FSTPRT3H 

2991* 





FSTPRT6M 

2992* 

3573 

3574 

3575 

3576 

FUPDHRK 

2990* 

3573 

3574 

3575 


FVERIFY 

2989* 

3572 

3573 

3574 

3575 

CAVEUP 

2274* 





CDATA 

2239* 

2487 

2621 

2623 


GOTOBT 

616 

619 

671* 




833* 



G07GBT1 

612 

673* 

GOTOBT2 

671 

677* 

GOTOET3 

679 

662* 

GRAPHIC 

1 367* 


KCRERR 

2277* 


INCTEST 

406 

785* 

INI TOP 

506 

2290* 

INTDCO 

275 

876* 

IKTDC i 

273 

889* 

INnYBD 

277 

863* 

:NTLVL7 

278 

858* 

i NT OMNI 

274 

883* 

INT5L07 

27 2 

897* 

INTTIMR 

276 

870* 

INUSE 

2279* 


INVCURS 

1 36 9 * 


I03EEPFQ 

204* 


I0B0073W 

203* 

570 

IOPBA3E 

76* 

77 

1701 

788* 

751 

iTo: 

796* 

800 


IT99 79? 802* 

IVLVLl 68* <37 

IVLVL2 89* 

IVLVL3 90* 

IVLVL4 ?i» 

:VLVLS 92* 

rv'LVLi 93* 1025 


IVL'v’L? 

94 • 





JUMPTC 

22 2* 

239 

245 

251 


KBBBUFR 

956* 

957 

1020 

1112 

1117 

KBBFLG3 

952* 

953 

1014 

1059 

1101 

KBBFRNT 

953* 

954 

1021 

1110 

1220 

KBBLEK 

957* 

1112 

1213 



K5BREAR 

934* 

955 

1124 

1207 


KBBSRSV 

955* 

956 

1119 



KBCC60C 

998* 

1031 




KBCCBRK 

999* 

1032 




KBCCGu 

1000* 

1035 




KBCCNTL 

976* 

1239 




KBCCOFF 

997* 

1013 




XBCLCA 

982* 

1177 




KECLCZ 

983* 

1179 




KBCLOCK 

977* 

1244 




KBCNGCK 

978* 

1076 




XBCQKRK 

984* 

1168 




KBCGUAL 

974* 

1136 




KBC5HFT 

975* 

1234 




KBDSIN7 

1002* 

1121 




KBFCLOS 

963* 

1060 

1063 

1161 

1250 

KBFCNTL 

965* 

1166 

1241 



KBFEMTY 

962* 

1016 

1105 

1126 

1224 

KBFFULL 

961* 

1186 

1222 



KBFLOCK 

966* 

1175 

1246 



RBFSHFT 

964* 

1069 

1236 



KBCCHRl 

1105* 

1106 




KBGCHR2 

1116 

1119* 




K6GCHR3 

1125 

1128* 





12 


13 12H 



KBGETCH 

262 

628 

1099* 





KBGETKY 

1035 

1138* 






KBINIT 

261 

442 

1010* 





KBINITl 

1034* 

1034 






KBIKTR 

1024 

1053* 






K8INTR1 

1062 

1068* 






KBiNTR2 

1070 

10 72 * 






KBINTRS 

107? 

1082* 






KBKSK40 

970* 

1170 






KBPROl 

1167 

1169 

1175* 





KBFR02 

1171 

1176 

1178 

1180 

1186* 



KBPR03 

1157 

1193* 






KBPR09 

1162 

1187 

1189 

1194* 




XBPROKY 

1078 

1156* 






KBPI/Tl 

1215 

1220* 






KBPUT2 

1221 

1223* 






RBPUTCK 

1168 

1207* 






KBQUAL 

1193 

1234* 






XBQUALl 

1233 

1239* 






XBQUAU 

1240 

1244* 






KBQUAL3 

1237 

1242 

1250* 





XBQUAL8 

1251 

1254* 






XBQUAL9 

1245 

1253 

1255* 





KBRCMND 

992* 

1012 






KBRCNTl 

993* 

1031 






KBRDATA 

990* 

1030 

1145 





KBRSTAT 

991* 

1029 

1144 





KBRTABLE 

1071 

1287* 






KBSTABIE 

1068 

1181 

1 264* 





LBOOT 

596 

1936* 






L BOOT 10 

1939* 

1944 






LBOOT30 

1941 

1948* 






LBOOT80 

1963* 

2308 






LBQOT9Q 

1946 

1965 

1973 

1977 

1981 

1985 

1988* 

LC8INMIN 

2947* 







LCDEO 

2944* 







LCDEl 

2945* 







LCFLF8IN 

2948* 

3114 






LCFLFSDl 

2943* 

3416 

3462 





LCFKHFH 

2949* 

3115 






ICMDl 

2613* 

2615 

2631 





LCMD3 

2621 * 







LCHD4 

2624 

2629* 






LCHD5 

2627 

2637* 

2660 





LCMDi 

2647* 

2649 






LCMD7 

2655* 







LCMDERR 

2604 

2609 

2617 

2630 

2638 

2643 

2651 2659 2662* 2676 2681 2689 2692 

LCMDEX 

2663 

2667* 






ICMDOK 

2657 

2665* 

2700 

2703 




LCHDR 

2932* 

3100 

3122 

3463 




LCMOTQRO 

2946* 

3099 

3113 





LOBLXIO 

247 

1950 

2024* 





lODSKl 

2144* 

2146 






LDDSKIA 

2143 

2146* 






LODSK2 

2137 

2152* 






LDDSK3 

2156* 

2157 

2161 





LODSK9 

2148 

2159 

2163* 





LDDSXIO 

248 

1952 

2132* 







LDGE7BE 

1972 

1976 

1980 

1984 

1990* 


LDGETBX 

1998 

2001* 





LDRICI 

203S 

2052* 





LDRI03 

2055* 

2056 

2060 




LDRTRN 

204i 

2058 

2062* 




LDSEND 

2029 

2031 

20 33 

2077* 

2078 

2145 

LDSENDO 

2090* 

2096 





LDSENCl 

2027 

2093* 

2142 




LDStNC 

480 

2178* 





LQSYNCl 

2182* 

2187 

2198 




LDSYNC2 

2184* 

2184 





LDSYNC3 

2184 

2190* 

2192 




LDSYNC5 

2188 

2194* 





LDSYNC6 

2191 

2197* 





LDSYNCY 

2195 

2201 * 





LDVXI7 

2044 

2052 

2106* 

2152 



LDWAI71 

2108* 

2108 





LDWAI72 

2110 

2113* 

2114 

2116 



LDWICl 

2040* 

2041 

2043 




LNBUn 

4011* 

4275 

42 9 6 

4305 

4314 

4314 

LONGCHDS 

2373 

2425 

2599* 

2622 



LSiSDISD 

2734* 






L53INMIN 

2937* 






L5DRQ 

2934* 

3292 





LSGSKCHG 

2938* 






LSFMHFM 

2939* 






L5INT 

2935* 

3295 

36 27 




L37RR 

293 1* 

3291 

3627 




MARCH 

384 

397 

751* 




MEMCLR 

407 

415* 





HEMTEST 

398 

406* 





MOTOROFF 

3985* 

4105 





MOTORON 

3986* 

4111 





KSi 

754* 

756 





HR 2 

760* 

765 





HRS 

769* 

774 





HR ERR 

762 

771 

776* 




MSGi 

445 

922* 





KSGiO 

626 

928 * 





MSG 11 

589 

929* 





HSG12 

594 

930* 





HSGIS 

599 

931* 





MSG 19 

622 

932* 





MSG2 

449 

558 

925* 




KSG3 

673 

926* 





MSG 30 

546 

933* 





MS&31 

551 

934* 





MSG32 

540 

935* 





HSG4 

584 

927* 





MSGCPY 

282* 

447 





KXEBA3E 

70* 

72 

73 

74 

428 

581 

HXBEND 

72* 






MXBENTRY 

74* 

586 





MXBIMIT 

73* 

427 

580 




HXBLEN 

71* 

72 





NBLKSSD 

2903* 

4021 





KBU8CD 

2902* 

3057 





NBLX8SD 

290 1* 

3043 







NBUFl 3853* 3854 4281 42?0 

NBUF2 3854* 3858 4274 4294 4303 4311 

KDEVIAC 2861* 3369 

NIBL 3902* 

NIRQl 2874* 

NIR02 2875* 

NIRQ3 2876* 

NIRQ4 2877* 

NNHIl 2869* 

NNMI2 2870* 

HNMI3 2871* 

NNMI4 2872* 

NOBUFR 2284* 24H 

NOSCHOLL 1371* 

NOSOCKT 2276* 

NOTRANS 2282* 2467 

OBOOT 591 2303* 

ODBLKl 2370* 

GDELK2 2368 2376* 

ODBLK3 2374 2380* 

ODBLKIO 241 2304 2358* 

ODCKDl 2331* 2333 

0DCHD2 2332 2336* 

ODCMD9 2323 2338* 

ODCOMND 507 513 231?* 

0DD5K1 2405* 

GDDSR2 2403 2412* 

ODDSK3 2413 2417* 

ODDSK4 2422 2425* 

ODD3X5 2424 2426* 

ODDSK6 2415 2429* 

ODD5K9 2410 2435* 

ODDSKIG 242 525 527 2306 2400* 

ODDV 2254* 

GDDVKI 2255* 

ODDWLO 2256* 

ODVALID 2258* 2360 2409 2412 2417 

ODWRAD 2257* 2372 2407 2537 2538 

OFF 219* 

ON 220* 

PHASEflOF 3973* 4657 

PflASEQON 3974* 

FHASEiGF 3976* 4658 

PHA3E10N 3977* 

PKASE20F 3979* 4659 

PHASE20N 3980* 

PHA3E30F 3982* 4660 

PHASE30N 3983* 

PHASEOFF 3970* 4774 

PHASEON 3971* 4769 

PRIOR 3863* 4692 4717 

PROHIEVL 56* 236 924 

PROMVERS 54* 235 924 

Q6K 3997* 

Q6L 3996* 4240 4250 4258 4337 4368 4375 4474 4481 4488 4501 

4534 4538 4549 4556 

3999* 

3998* 


4505 4512 4516 4523 4527 


Q7H 

Q7L 



RAHBASE 

58* 

60 

62 

63 

64 

RAHEND 

64» 





RANRESUF 

tOt 

ion 

1054 

llOQ 


RAKRBLEK 

61* 

957 




RAMLEN 

59* 

64 




RAHM2BUC 

hi* 

415 




RAMS 1 29 

812 

817* 




RAMSIZE 

396 

421 

677 

810* 


RAMTSTl 

371 

379* 




RAMTST2 

385 

393* 




RAMVK5TA 

63» 

100 

!01 

103 

104 


122 

123 

124 

125 

126 


141 

142 

143 

146 

147 

RB2BLK 

2908» 

3684 




RBDOPCG 

2910* 

3690 




RBDUNT 

2909* 

3687 




RSUSY 

29l»* 

3706 




RDYADR 

2265* 

2476 




RECVO? 

2288* 

2513 




RERRUNOV 

2919* 





RE3TSKT 

2296* 

2539 




RGOCD 

2907 * 





RHDR 

2223* 

2224 

2225 

2226 

2227 

RHCSUN 

2 22 7* 





RHD5KRC 

222.8* 

2665 

26 99 



RHPKTLN 

2216* 





RHFRTRC 

1224* 

2325 

23 31 

2334 

2336 

RK30H 

2225* 

2626 

2656 

2696 


RHVHERR 

2911* 

3693 




RLOSTDEV 

2912* 





RN07RDY 

2918* 

3497 

3709 



ROHBASE 

66* 

68 

15.3 

159 

160 


175 

176 

177 

m 

179 


195 

196 

197 

198 

231 

RONEND 

68* 

369 

in 



ROJILEH 

67* 

68 




R0MT37 

370 

706* 




ROMTSTl 

368* 





RPTSTl 

539 

544* 

556 



RPTSTI 

545 

554* 




RPTST8 

558* 





RPTST9 

563* 

563 




RPT3TAT 

530 

537* 




RRNF 

2917* 

3702 

4327 

4380 

4435 

RSEEXERR 

2915* 

3697 




RTi 

708* 

71 i 




RTIERR 

311 

387* 




RTZERR 

39 5 

400* 




RUHPROT 

2914* 

3696 




3BBOOT 

592 

597 

619* 



SEDEBiJC 

579* 

636 




SBERR 

2459 

2461 

2463 

2467* 


3BEXIT 

2465 

2469* 




SBFLPY 

252 

577 

599* 

638 


SBFLPYl 

604* 

611 




SBFLPT2 

606 

615* 




SBFLPV3 

60S 

618* 




3BLQCAL 

246 

574 

594* 

640 



105 

106 

108 

109 

127 

129 

130 

I3i 

148 

149 

ISO 

379 


ZSOS ZS21 2SZi 2613 


161 162 164 165 

ISO 181 163 184 


4562 


113 113 

133 134 


2647 2686 


166 167 

186 187 


114 

13S 


116 

136 


iia 

137 


123 

139 


121 

143 


169 170 171 172 174 

188 189 192 193 194 



SBKSG 

590 

595 

800 

821* 



SBOKKI 

240 

578 

589* 

842 



SBSTROB 

2458 

2480 

2 482 

247 3* 



5EU5ER 

572 

583 

828* 

875 



5BUSY 

3012* 

3288 

3855 

3872 



SBVl 

2478* 

2478 





SBVAIT 

2484 

2475* 





SBWEXIT 

2477 

2479* 





SCiO 

252 1* 

2523 





SC12 

25 22 

2528* 





SC20 

2541 

2543* 





SC30 

2557 

25 80* 





SC32 

2559 

258 1 * 





SC4S 

2545 

2588* 





SCSI) 

2573* 






SC6I) 

2579* 

2581 





SC70 

25 80 

2584* 





SCERRl 

25 28 

2388 

2 589 * 




3CERR2 

2518 

2575 

2 59 1 * 




SCEER3 

2524 

2582 

2593* 




SCE2I7 

2530 

2587 

25 90 

2592 

2595* 


SCND2 

2 888* 

2891 

2708 




SCMD3 

28 87 

2898* 





SCMD4 

28 98 

2702* 





SCPT5SD 

289 1* 

4023 





SCPT8DD 

2890* 

30 59 





5CFT83D 

2889* 

3045 





SCRCERR 

302 1* 

3213 

3650 

3870 



SDRQ 

3013* 






SDTCVER 

3018* 

3211 





3DTUNDR 

3019* 






5ELBOOT 

570* 






SENDOP 

228 9* 

2572 





3ETCO 

2485* 

2803 

2829 




3ETC01 

2492 

2505* 





SET INTV 

430 

438 * 





SETMB 

4 2 7 * 






3ETRECV 

2497* 

28 37 

26 58 

2675 

2704 


SETUP 

233 

300* 

843 

47 84 



SETUP 1 

308* 

308 





SETUP 2 

307* 

307 





SETUP3 

308* 

308 





SHDLDD 

30 2 8* 






SKDR 

22 32* 

2233 

22 38 

2237 

2587 


SHFMLN 

2237* 

2371 

2377 

2418 

2419 

2502 

SHORTCMD 

2378 

2423 

28 71 * 




SHPKTRC 

2233* 

2588 

2579 

2585 

2589 


SHTOLH 

2238* 

2370 

23 78 

2405 

2421 

2540 2542 2543 2558 2558 

SINDEI 

3014* 






SLOTIAD 

2884* 






3 LOTA DR 

913* 

2025 

2133 

2179 



SLOTID 

458* 






SLOTIDl 

480* 

503 





SLQTID2 

477 

479 

484* 




SLOTID3 

485 

487 

490* 




SLQTID8 

481 

497* 





SLOTID9 

491 

493 

495 

500* 



SLOT I DA 

515 

520* 







s:ot:db 

508 

518 

525* 









SLQTFTR 

5LTXDCFS 

9: 1‘ 
5885* 

918 










£LTS7AD 

286 7 ‘ 











SNDCMD5 

255 0* 

2 808 

2 8 8 0 









SKDREST 

25 3 7* 

2842 










5NGTRCY 

: 03 2 * 

3493 

385? 

3874 








SR 

330 

lG38 

1120 

1121 

1128 

2090 

2093 

2094 

2098 3279 

3280 

3307 4184 4185 4200 4578 


45 79 

4581 

4 88 9 

4890 

4724 







SRAKLK4 

38 3 4 * 











SRAHLNS 

3 8 3 5 * 











SRAKLNo 

3 8 3 8* 











SRAMLN-V 

3 8 3 7 * 











SRAMRD4 

38 45 * 











3RAKRDS 

384 8 * 











SRAKRD6 

384 7 * 











3RAMVT 

38 48 * 











SRECTY? 

30 2 7 * 











3RNF 

302 4* 

3852 










S3EEKERR 

30 2 3 * 

35 28 

3 888 









3TRA2R 

22 8 4 * 

2 47 4 










£TRA2 

5017* 











STRQEIT 

2 3 2 7 

2453* 

2517 

2574 








£U 1 1 

439* 

440 










3VLCHD 

285 1 * 

30 98 

3101 

3121 








SVRFA’JLT 

3028* 











3VRFROT 

33 3 0* 

3882 










TCuADHI 

22 4 8* 

24 9 1 

2501 

2537 

2554 







TCDADLu 

22 4 9* 

2538 










TCBEST 

2252 * 

25 83 

28 25 

28 55 

2657 

2702 






TCDTALN 

2 25 0* 

2485 

2502 

2543 

2558 

2540 






TCKuRLN 

22 5 1 * 

2488 

2503 

2544 

2541 







TCKD 

2243* 

2244 

2245 

2248 

2247 

2243 

2249 

2250 

2251 2252 

2324 

2514 2573 

TCCF 

224 4 * 

2322 

2 32 3 

2513 

2572 







TCRADHI 

2245* 

2512 

2571 









TCRADLO 

2248* 











TC30CK 

2247* 

2324 

2514 

2539 

2555 







TIMEOUT 

2283* 

2334 

25 9 3 









TKP55SD 

289 7* 

4024 










TKP58DD 

289 8* 

3060 










TKP383D 

2895* 

3048 










TOIHTVL 

2288* 

2329 

2475 

2519 

2578 







TOOLGNG 

2275* 











TRKCKT 

3882* 

4688 

4708 

4710 

4719 







TRKN 

USREASE 

3884* 

63* 

393 

520 

882 

1943 

2735 

2744 

3739 

3748 



VERT 

1388* 

151? 

USl 

1879 

1708 

1784 






VI ABASE 

77* 

203 

204 

310 

835 







WAITING 

2270* 

2325 

2331 

2505 

2521 

2544 

2579 





VALKEIT 

38G 

394 

720* 









VBi 

724* 

74C 










VB2 

725* 

729 










VB3 

732* 

734 










VBERR 

727 

734 

742* 









VTriOOP 

2294* 











VRAPON 

1370* 











WRATTRi 

1383* 











VRAHRl 

13 84* 

1517 

1851 

1479 

1708 

1784 








WRBASE! 13S4* 
VRBA5EY 1355* 


WRBITOFS 

1340* 

1515 

1449 

1445 





VRCKARFT 

1350* 

1395 

1439 






VRCURADR 

1352* 

1511 

1448 

1644 





VRCi/RSH 

1358* 

1580 

1582 

1597 

1617 

1419 

1427 

1432 

WRCUR5Y 

1359* 

1404 

1408 

1428 

1633 

1435 

1482 

1692 

VRGRORGX 

1341* 








WRGRORGY 

1342* 








VRHOMEOF 

1353* 

1789 

1799 






WRHOMEPT 

1351* 

1785 







VR LENGTH 

1374* 

1391 

1837 

1856 





WRLNGTHX 

1354* 

1583 

1439 

1719 

1730 

1769 



VRLNGTHY 

1357* 

1609 

1684 

1494 





VRRCOIEN 

1374* 








VRSTATE 

1373* 

1441 

1447 

1450 





ZERORAH 

342 

418 

422 

825* 

827 





17A3 17 



